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ABSTRACT 



This paper describes the design and implementation 
of a microprocessor-bas ed high-speed digital data 
acquisition and reduction system suitable for use in 
time varying signal analysis as encountered in 
unsteady aerodynamic investigation. A microprocessor, 
flexible disk drive and an analog-to-digital 
conversion module were the main components which were 
integrated to form a 32 channel 12 bit resolution data 
acquisition system capable of 1000 Hz sampling rate 
and permanently storing over 250,000 bytes of data on 
magnetic diskette. Subsequent to the data logging 
process, the same system was capable of serving as a 
general purpose computer utilizing the popular BASIC 
scientific programming language. 



The system was qualified for 
functional performance through a series 
exercises, and was then applied 
investigative task to further determine 
and value. 
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I. 



INTRODUCTION 



Data acquisition systems have historically been both 
costly and cumbersome for the investigator to use. 
Acquisition of unsteady experimental data, as in the case of 
oscillatory flow investigation, was only possible with the 
aid of expensive digital computer systems used in 
conjunction with elaborate analog recording devices. 

Within the past four years, a new form of computing 
power has become available to the engineer accompanied by 
such a reduction in cost that its use has spread rapidly 
throughout the realm of engineering design. The 
revolutionary device alluded to is the microprocessor, which 
in its basic form contains all the arithmetic and logical 
functions normally found in the central processing unit 
(CPU) of a large scale computer. Concurrent advances in 
solid state memory and other large scale integrated (LSI) 
circuitry has enabled entire computing systems to be encased 
in table-top enclosures at a fraction of the cost of the 
previously available minicomputers. 

This document describes the use of one such 
micro processor-bas ed microcompu ter system, the INT 2L MDS-9 00 
microcomputer Development system, as a central component of 
a data acquisition system . The MDS was integrally 
connected with various peripheral devices including an 
analog to digital converter, input-output devices, and a 
dual flexible disk drive unit to form a data acquisition 
system. The system was then qualified using known input 
signals of controlled harmonic content. Subsequently the 
system was applied to an actual experimental situation. 



q 



where unsteady analog signals were digitized, recorded, and 
later analyzed on the same self-contained computing system. 

A glossary of terms commonly used in the instrumentation 
engineering, data processing and computing disciplines is 
presented in Appendix A. 
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II . 



Svstem Design 



An engineering design is, in general, the result of a 
directed effort in meeting a recognized human need or 
desire. The value of the design is usually determined by 
how well the design product satisfies a set of performance 
criteria. In most cases, several methods of achieving the 
goal will be available, thus requiring the designer to 
choose among the alternative approaches. This choice will 
be governed or influenced by constraints imposed by the 
environment, funding and production schedule. 

This section deals with the definition of the need, 
specification of the desired performance attributes, 
determination of viable alternatives, and the decision 
process by which the final product was developed. Although 
most of the desired performance requirements were achieved, 
the project served as an educational experience revealing 
many areas which could be improved. Section V II discusses 
the design in retrospect and proposes additional 
alternatives which could further enhance the system's 
performance. 

A. Definition of the "need" 



The "need" was a precipitant of the Circulation 
Controlled Eotor (CCR) aerodynamic investigation being 
conducted by Naval Postgraduate School personnel. Existing 
wind- tun r.el data acquisition systems were designed to 
operate in the steady-state flow-field environment. The 
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desire to study the dynamic nature of the flow about an 
airfoil of radical design, while experiencing the effects of 
an oscillatory flow-field, required a departure from the 
traditional hand logging or slow-speed automatic data 
acquisition methods. More important, however, the 
experimental process not only required investigation of the 
CCR at various angles of attack and air speeds, as in the 
case of steady-state wind tunnel experimentation, but 
additionally introduced frequency, cavity pressure 
modulation amplitude and phase relative to flow field 
oscillation as variables. Thus, the CCR experiment required 
experimental investigation throughout an operating envelope 
bounded by 5 independent variables rather than the usual 2 
associated with steady-state flow problems. This obviously 
increased the magnitude of the data acquisition problem far 
beyond the point of practicability for the conventional data 
logging methods at hand. A high-speed automatic data 
logging technique was clearly in order. Additionally, in 
order for large amounts of data to be efficiently analyzed, 
it was imperative that all information be recorded in a form 
which could be directly utilized by a digital computer. 

The above rationale then became the basis for the 
following statement of the "need": 

* A high-speed digital data acquisition system 
exhibiting performance attributes necessary to allow 
numerical analysis of the flow pattern about the surface of 
a CCR airfoil section, operating in the Naval Postgraduate 
School 2-foot by 2-foot oscillatory flow wind tunnel 

* Function as a controlling device capable of 
automatically sequencing the Scanivalve mechanical 
multiplexers without operator intervention 

* Perform the algebraic calculations necessary in 
reducing the data to analytic form 
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B. 



Deter mination of Performance Specifications 



Anticipating a significant investment in equipment, and 
realizing that the CCR research project would some day be 
complete, it was determined that the system design should 
take future applications into consideration. For this 
reason, flexibility was incorporated as a major design goal, 
which necessarily resulted in a modification of the 
specifications from those actually required for the CCR 
task. 



1 • Analog to Digital Conversion i A/D]_ 



In a typical data-sampling system, signal voltages 
representing varying physical parameters; e.g., pressure, 
temperature, position, velocity and acceleration, are 
sampled and converted via A/D converters into digital form. 
A/D conversion has become an engineering discipline in 
itself and an entire vocabulary associated with the field 
has resulted. To assist the reader in understanding the 
following treatment of A/D performance requirements, a brief 
glossary of A/D terminology is included within Appendix A. 
In the interest of brevity, the discussion herein is limited 
to the most important facets of A/D conversion. For a more 
complete treatment of the subject, the reader is directed to 
ref. 12, an outstanding collection of A/D related articles. 

As a prelude to the below listed performance 
parameters. Fig 1 depicts all of the elements found in a 
typical A/D conversion system and illustrates the type of 
errors associated with each stage of the process. 
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FIGURE 1 - TYPICAL AN ALOG-TO-D I G I T A L DATA ACQUISITION MODULE 



analog channel 



2 . Number of Analog Channel s 

The CCR experimental set up had one 
dedicated to each of the below listed signal sources: 

* Scanivalve ONE 

* Scanivalve TWO 

* Cavity Pressure Transducer 

* Hot Wire Annemometer 

A schematic of the signal flow is depicted in ?i 
The four channels were to be sampled in fast succession 
specified periodic rate. The A/D module had provisions 
32 single-ended channels or 16 differential channels, 
single-ended mode was employed in this application. 
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3. 



S§3£le Resolution ( quan tization er ro r) 



When the analog signal is digitized, the resulting 
digital quantity can take on only certain discrete values. 
The number of bits in the digitized datum word determines 
the number of possible states that the word may have. An 8 
bit A/D, for example, can exhibit 2 to the 8th or 256 
states. If the range of operation of the A/D is. minus 5 to 
plus 5 volts, (10 volts full scale) , then each bit 
represents an increment of .0391 volts. This amounts to a 
resolution or quantization error of 0.391 percent. The more 
bits in the digitized word, the better the resolution; 
however, the price paid for increased accuracy is a decrease 
in conversion speed. Cf course, speed and accuracy may be 
obtained concurrently with a corresponding increase in cost. 

The A/D module exhibited 12 bit accuracy, yielding a 
quantization error of 0.024 percent over full range 
operation. This corresponded to a sensitivity of 
approximately 0.00244 volts during 10 volt full scale 
operation. The 12 bit converter offers moderate accuracy 
and relatively high speed, e.g. 75,000 conversions per 
second, for a reasonaole cost. 



4 • C cn version Fate 

The amount of time required for the A/D module to 
sample and digitize the analog input is defined as the 
conversion time. The A/D module was capable of 75,000 
12-bit conversions per second, or one conversion every 13 
microseconds . This conversion rate was only obtainable if 
the Direct Memory Access (DMA) mode were utilized. Since 
the SIN ET RAC-300 module was operated in the program control 
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node, the conversion rate was limited by the microprocessor 
instruction sequence execution time to 74.5 microseconds per 
conversion. The resulting throughput was 13,400 conversions 
per second. The induced lag between channels caused 
significant problems in signal reconstruction and is 
discussed in detail in section IV. 



C. The Processor 



The digital 
design, and added 
conversion, data 
to the problem at 
requirements of 
section. 



processor was the heart of the system 
the flexibility needed to make the A/D 
acquisition and storage process applicable 
hand. The desired functional performance 
the processing unit are discussed in this 



1 • A/D co ntrol 



During the acquisition phase of operation, the 
processor’s main task was that of controlling the A/D 
module. 3y controlling the acquisition process under 
programmed logic, adjustments to the sampling rate, channel 
sampling sequence, and real-time filtering of the data could 
be easily effected. 

The reconstruction of time-varying analog signals 
frcm a set of discrete datum points represents a problem of 
significant magnitude. Probably the single most important 
consideration during the acquisition phase is the period at 
which samples are to be taken. When investigating periodic 
signals, frequency content is generally a matter of prime 
interest. Nyguist's sampling theorem states that 
equi-spaced data, with two or more points per cycle of the 
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highest frequency. 



will allow reconstruct 
functions. If this principle were 
phenomenon termed "aliasing" could occur, 
aliasing is shown in Fig 3 which depicts 
two different rates. The curves drawn th 
of points represent possible reconstruct! 
signal. The frequency change implied by 
an "alias" of the frequency described by 
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IAS III G" EFFECT 



Other considerations related 
the nuaber of data points required for 
the amount of memory, permanent 
computation time required in processing 



to sampling rate are 
adequate analysis, 
mass storage, and 
the data. 



In the CCR application, it was predicted 
fundamental driving frequencies in the range of 1 to 
should be investigated; and that frequency content up 
fifth harmonic would be of possible interest. This 
that the system must be capable 



channels at a minimum rate of 200 Hz, 



of sampling the 
The resulting 



achieved a 500 Hz sampling rate over 8 channels. 
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III. HARDWARE 



A. MDS-800 MICROCOMPUTER DEVELOPMENT SYSTEM 



In its basic configuration, the INTEL MDS-390 
Microcomputer Development System consists of a CPU, 1 6 K RAM, 
peripheral interface controller, front panel controller, 
power supply and enclosure. With the exception of the 
enclosure and the power supply, each of the aforementioned 
items is in the form of one or more printed circuit modules 
which may be inserted into the mainframe of the MDS. The 
MDS 
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FIGURE 4 - 



MDS-800 MICROCOMPUTER DEVELOPMENT SYSTEM 



23 




1 



• ESHJSS 2£2.§§2 J22222Z (RAH) 



The basic block of RAH is a 16K byte module o 
access rate volatile dynamic memory, where IK denote 
the 10th cr 1024 bytes. The MDS is capable of address 
such modules or 54K bytes of memory. Of the 64K of RA 
62K are actually usable due to the coexistence of a 2K 
of read only memory (ROH) containing the MDS H 
program . 
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- 16K BYTE RANDOM ACCESS MEMORY MODULE 
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FIGURE 5 




2 . DI SK OPERATING SYSTEM 

The INTEL Disk Operating System (DOS) consisted of 
three major components, a dual floppy disk drive unit, a 
disk controller, and the DOS support software. The addition 
of the DOS provided dramatic increases in the flexibility, 
speed, and mass memory storage available. 

Each 7.5-inch diameter floppy disk (diskette) had a 
capacity of 256K bytes of semi-random access storage. With 
the dual drive, over 0.5 million bytes of data, program, or 
other information could be accessed with relative ease and 
moderate speed. 

The software support package offered by INTEL, 
called ISIS, was evaluated along with the Digital Research 
CP/M disk operating system. The Digital Research software 
package was chosen over the INTEL package due to the higher 
speed it demonstrated and its compatibility with the 3ASIC-E 
package used in the data reduction phase. 

CF/K consists of several utility routines in 
addition to the Basic Disk Operating System (BDOS) . These 
routines allow the user to form and edit disk files, 
programs or data files, to assemble and load assembly 
language programs, and a powerful debug routine. A more 
complete description of the CP/M BDOS is contained in ref. 
9 . 



3 • 2JN ERAL PURPOSE INPUT OUTPUT MODULE (I/ O) 

* 

The basic MDS-800 was further expanded with the 
installation of a general purpose I/O module. This module 
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provided four input ports and four output ports of eight 
bits each. The need for the I/O module was anticipated for 
control applications, digital input or outputs, controlling 
an X-Y plotter, or other general purpose applications. This 
module was actually intended for controlling the Scanivalve 
positioning under automatic channel sequencing. However, it 
was later decided that system flexibility would have been 
sacrificed had this feature been implemented. 

4 . SIN ETR AC- 800 AN ALOG TO DIGITAL CONVERTER MODULE 

The Datel Sinetrac-800 A/D converter module is a 32 
channel, 12 bit resolution analog to digital module 
specifically designed for use with the INTEL NDS-800. Being 
buss compatible with the MDS system, the module was 
installed within the MD3 chassis and the wiring harness was 
brought to the backplane of the MDS enclosure. 

The main elements of the A/D module were: 

■ 32 channel analog multiplexor 

■ sample and hold 

a A/D converter sub -module 

■ addressing and hand-shaking logic circuitry 
a Direct Memory Access control circuitry 

The A/D module had three fundamental modes of 
operation: 

a program control 

■ program control with automatic sequencing 
a Direct Memory Access mode 

Reference 1 contains a complete description of the 
A/D module including operating instructions and programming 
techniques. 
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Although the D.1A mode was not utilized because of 
its requirement of an INTEL DMA module for support, future 
development of the system will make the addition of the DMA 
module indispensable. The use of DMA would allow the A/D 
module to operate at its full capability of 75 KHz sampling 
rate. This increase in • acqu isition rate would significantly 
extend the range of the system in terms of signal frequency 
component reconstruction. 

The Sinetrac-800 also provided user options in. 
certain operational parameter selection. Selectable by 
jumper wire were input signal voltage range (5, 10, or 20 
volts), single ended or differential operation, and 
interrupt or non -in t err upt operation. The options in use 
were: plus and minus 5 volt single ended, non- in terr upt 
operation. Details concerning the use of jumper options are 
specified in ref. 1. The SINETRAC-800 is depicted in Fig 6. 
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FIGURE 6 



S INETRAC-800 ANALOG TO DIGITAL CONVERTER 
MODULE 
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IV. 



SO FTWA RE 



The software development was accomplished in four 
distinct phases and involved the use of three different 
programming languages. This section briefly describes each 
language and the individual program modules created. 

A. LANGUAGES 



Every computer language has a level of application for 
which it was designed. The three languages discussed in 
this section were used to accomplish varying degrees of 
program control. A high level programming language allows 
the programmer to use nearly literal or sentence form 
expressions or equations. FORTRAN is an example of a high 
level language. A low level language on the other hand, is 
closely related to the machine code actually used by the 
computer. Machine code is, of course, the lowest level 
programming language but is rarely used. Low level 
languages provide the programmer with complete control over 
memory usage and CPU instruction sequences. 

1 . 808 C Asse mbly Language 



This low-level language was specifically developed 
for use with the 8080 microprocessor. It is, however, 

similar in form to assembly languages in use with other 
computers. The fora of the language is described fully in 
ref. 10, therefore only the merits of rhe language are 
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discussed herein. 



The use of assembly language offers the programmer 
direct control over the CPU instruction sequence. Very 
efficient utilization of available program memory and 
optimization of program execution time may be accomplished 
when employed. These features form the basis for the use of 
assembly language in the construction of the data 
acquisition and ASCII conversion programs, where execution 
time and memory allocation are importrant considerations. 

One distinct disadvantage to the use of assembly 
language is that the amount cf work required in producing a 
relatively short program may be significant. Several pages 
of documentation are necessary to make the program readable, 
even to the author of the program. Obviously, tracing 
another’s assembly language program is very difficult even 
with excellent documentation. 

2 • PL/ M 

PL/M is a medium-level language again designed for 
microprocessor use. It offers moderate control over the CPU 
instruction sequence while providing the user with many of 
the features available only in high-level languages. In 
other words, PL/M is a language which permits the user to 
determine, within limits, the degree of control he desires. 
The amount of machine code produced by PL/M compilation is 
about half again that resulting from a functionally 
equivalent assembly language program. PL/M is ideal for use 
when floating point mathematical operations are not 
required, or when time and memory efficiency are not 
important factors. 

FL/M was used in the construction of the 
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communicatiions interface program called I FACE which linked 
the 1DS-800 to the I3M-360 via telephone line. PL/1 may be 
assembled on either the 131-360 or locally on an MDS-800 
when equipped with the full complement of 64K of RA1. 

3 . E AS IC 

EASIC is a high level language which is gaining 
wide acceptance throughout the scientific community. 
Similar to FORTRAN, BASIC provides the user with facility in 
programming mathematically complex routines in fairly 
familiar algebraic format. The 3ASIC-E compiler and run 
time monitor were developed for 8080 implementation to be 
used in conjunction with CP/1, and are fully described in 
ref. 5. 



EASIC-E was used in the data analysis routine which 
may be easily modified to suit the user's needs. A summary 
of the commands available and syntax of 3ASIC-E can be found 
in ref. 6. 



PROG RAIS AND DISKETTE FILES 



The data acquisition and reduction process was a 

multiphase sequence, each phase consisting of one or more 
program executions. Each program resided on the system 
diskette under its individual file name. The system 

diskette also contained the CP/1 BDOS and each of its 
associated utility routines, the BASIC-E compiler and run 
time monitor. The system diskette was inserted into disk 
drive A, while the data diskette was inserted into disk 
drive E. Each program module and its associated support 
files is described within this sub-section, and Appendix E 
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contains a description of the operating procedures. 

1 . CONTROL 

A control file called CONTROL was formed prior to 
each acquisition run. This file was edited and maintained 
on the system diskette and contained both text and control 
parameters that were used by the acquisition program, 
ACQUIRE. The use of a control file eliminated the need for 
the operator to re-enter control parameters for successive 
runs. A sample CONTROL file is contained in Appendix ?. 
The order of the passed parameters was significant; however, 
the verbiage or content of the string variables could be 
entered free-form. The ACQUIRE program would only recognize 
and use the integer value of parameters which were preceded 
by a colon and followed by a carriage return linefeed 
combination. The information following the first two colons 
was ignored, allowing the date and run number to be entered 
but not passed to the ACQUIRE program. The meanings of the 
parameters are self-evident from the sample shown in 
Appendix F, and are therefore not explained here. 



2 . ACQUIRE 



ACQUIRE was the main - program which performed the 
data acquisition function. It would first read the CONTROL 
file from iisk drive A and display it on the CRT for the 
operator's review. Should corrections or alterations be 
required, they could be effected at this time by editing the 
CONTROL file. With the CONTROL file in order, ACQUIRE 
proceeded to extract the necessary control parameters and 
duplicated the CONTROL file on the diskette in drive 3. 
Using the extracted control parameters, this program then 
menaced the operation of the SINETRAC-800 module, CRT, and 
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disk drive unit so as to scan the specified analog channels 
at the specified rate and number of repetitions, and record 
the data on the data diskette in disk drive B. The ACQUIRE 
program accomplished this task by issuing commands to the 
SIN ETRAC-800 , followed by data to be written or read. The 
SIN3TRAC-800 was issued the initial and final channel 
numbers, a start scan command, and a start conversion 
command. When an analog to digital conversion was complete, 
the SINETRAC-800 changed its status word to indicate an end 
of conversion (EOC) . The processor would then read in the 
two bytes of data resulting from the conversion. Upon 
receipt of a subsequent start of conversion command, the A/D 
module would automatically step to the next analog channel 
to be sampled and perform a conversion. When the entire 
range of channels was converted, the A/D would change the 
status word to indicate an end of scan, simultaneously 
resetting the channel selection register to the initial 
channel . 



The generation of the scan period timing pulse is a 
topic which deserves explanation as it was one of the most 
difficult portions of the ACQUIRE routine from a programming 
standpoint. The MDS-800 front panel controller module 
includes an interrupt timer which may be turned on cr off 
programmatically. The timer is actually a series of solid 
state counters which, after receiving a certain number of 
pulses from the 9.8 MHz system clock, issues a pulse to the 
CPU. This interrupts the operation of the 8080 CPU, causing 
the program to execute a subroutine. This subroutine then 
counts the number of interrupts received in this manner. 
When the number of interrupts counted reaches a value which 
matches that prescribed by the scan period control parameter 
entered by the CONTROL file, a scan instruction is issued to 
the SIN ETRAC-800 and a scan sequence is initiated. Each 
interrupt occurs at 0.977 ms. The fact that the timer 
interrupts at nominal 1 ms intervals became the limiting 
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factor on scan rate. In order to increase the scan rate, 
some other means of initiating the scan must be used. The 
rationale for using the interrupt timer in the first place 
was that it provided, at no additional expense, a highly 
accurate time base, an important requirement for dynamic 
signal analysis. 

Data from each conversion were stored in sequential 
?. AM locations. When the specified number of scans had been 
performed, the data stored in RAM were formatted and 
transferred to the data diskette in disk drive B. Each 
block of scans was written into a file called DATA.nnn, 
where nr.n was the decimal sequence number for that file. 

The process continued until all Scanivalve channels 
were sampled and logged, the diskette space was exhausted, 
or the process was terminated by the user. If the process 
were completed without mishap, a file called PROTECT could 
be written on the data diskette at the users option. The 
PROTECT file prevented further data from being recorded on 
an unprocessed diskette. 

3 . PROTECT 

The PROTECT file, if it existed on a data diskette, 
prevented additional data from being written to the 
diskette. Normally the PROTECT file was only removed from a 
diskette upon successful completion of the reduction 
process. This procedure prevented unprocessed data from 
being inadvertently destroyed or overwritten. The PROTECT 
file could also be removed by typing "ERA 3:PR0TECT" at the 
console. 
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DATA . nnn 



4 . 



Each time the SCAN subroutine within the ACQUIRE 
program was executed, a DATA. nnn file was created on the 
data diskette. This file contained the data stream which 
resulted from one run. At the completion of all the runs 
the data diskette would contain several DATA files. For 
example, a completed data disk directory might be as 
fellows: 

CONTROL 
DATA . 000 
DATA. 001 
DATA. 002 
PROTECT 

The first 16 bytes of data on each DATA file form a 
header for that file, and contained the control information 
relevant to that file. The meaning of each byte within the 
header is listed below: 



Byte 


0 


Ini 


tial Anal 


og Channel 


Byte 


1 


Fin 


al 


Analog 


Channel 


Eyte 


2 


Sea 


ni 


valve O 


ne setting 


Byte 


3 


Sea 


ni 


valve T 


wo Setting 


Byte 


4 


No. 


o 


f scans 


(LSB) 


Byte 


5 


No. 


o 


f scans 


(USB) 


Byte 


6 


Sea 


n 


period 


(LSB) 


Byte 


7 


Sea 


n 


period 


(MSB) 


Byte 


8 


y XT9 


qu 


ency (LSB) 


Byte 


9 


Fre 


qu 


ency (NS 3) 


Byte 


A 


thr 


oa 


g h F no 


t used 



file. 



Subsecuent data words formed the body of the DATA 
A DATA file was composed of binary information, and 
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therefore required translation into ASCII characters prior 
to being read by the BASIC reduction routine. 

5. CC'IVERT 



The CCNVERT program was an assembly language routine 
which read the desired DAIA.nnn file into RAM, converted the 
binary values to ASCII decimal integers ana created a file 
called DATA.ASC on the data diskette. This was necessary 
prior to each execution of the REDUCE program, as the 
3ASIC-E file handling would only accommodate ASCII coded 
disk files. This process could have been made a part of the 
ACQUIRE program function; however, the additional number of 
bytes required for each data point would have severely 
limited the amount of data on each diskette. 



The program was executed by typing "CCNVERT 
DATA.nnn" at the console. The resulting ASCII type file 
could be viewed in raw unformatted form by typing ’’TYPE 
B : DATA. ASC" . 



6 . REDUCE 

The REDUCE program was written in BASIC and was 
executed by typing "EUR REDUCE" on the console. Its 

function was to read the DATA.ASC file from the data 
diskette and perform the required numerical analysis 
necessary to extract the Fourier coefficients of the signal 
wave form represented by the data. The program used is 
contained in Appendix C and a discussion of the reduction 
algorithm is presented in ref. 11. 

It is important to note that the BASIC routine used 
in this application may be easily modified to suit the 
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user's needs. For that matter, an entirely different 
analysis algorithm could be substituted with equal facility. 
In effect;, the function of the program was not of 
significance, however, it served as a vehicle for 
development and testing of the system. The demonstrated 
flexibility and ease in programming afforded by 
incorporation of the BASIC language are the meaningful 
features . 



7 . IF AC E 



This PL/M program was originally written by an 
unknown author but was adapted for use with the MDS-800 
through modification of the interfacing routines. 

Its purpose was to allow the user to operate the CRT 
console as a remote time-share terminal in conjunction with 
the 'tf.R. Church I3M-350 operating under the Cambridge 
Monitoring System (CMS) . The program listing is included 
for documentary purposes in Appendix C. It also provided 
for automatic bi-directional transfer of disk files between 
the I3M and .IDS systems, a useful feature. 
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V. 



SYSTEM QUALIFI CAT ION 



Any design, whether hardware, software or a combination 
of both, must be thoroughly evaluated for performance under 
controlled conditions prior to its introduction in an actual 
field environment. The test which the design should undergo 
must exercise the device throughout its expected range of 
operation so that actual performance limitations may be 
determined. Qua li f ication testing also provides the 
designer with quantitative and qualitative measures of the 
system's ccr.formance to the design criteria. This section 
discusses the qualification tests conducted on the data 
acquisition system, and an interpretation of the results 
obtained . 

The main objective of the qualification testing 
procedure conducted was to provide a level of confidence in 
the system's ability to faithfully track the input signals, 
thereby permitting the reduction routine to accurately 
perform numerical operations which would reconstruct the 
desired parameters of magnitude and phase, while filtering 
undesirable frequency components. The three basic 
qualification tests conducted in the determination of the 
system's performance characteristics are discussed below. 



A. DC CALIBRATION 

Accompanying the SINET3AC-800 D/A module was a voltage 
calibration and scan test software package. Tnis program 
allowed verification of the accuracy of the A/D conversion 
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system when known (accurately measured) DC voltage levels 
were applied to the individual input channels of the A/D 
module. The results of this test, with the voltage range of 
the device set at plus and minus five volts full scale, are 
shown in Fig 7. This voltage range was chosen over the 20 
or 5 volt full scale range because the outputs of the signal 
conditioning amplifiers had historically exhibited bias and 
excursion characteristics which remained well within this 
range. Had a 20-volt full-scale range been utilized, 
sensitivity would have been sacrificed, whereas a 5-volt 
range would have resulted in an overvoltage condition on the 
A/D converter circuit. 
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FIGURE 7 - DC VOLTAGE CALIBRATION RESULTS 



B. 



SINUSOIDAL SIGNAL REC0N5 TROCTION 



This test was designed to evaluate the system's ability 
to accurately acquire, store, and reconstruct a sinusoidal 
input signal of known amplitude and phase relationship to a 
reference sinusoidal signal. 



The test was conducted using the 
amplifier circuit illustrated in Fig 
low-pass filter. 



simple operational 
8, representing a 



The gain and phase of the output signal relative to the 
input signal were measured by using the Ballantine true RMS 
meter and an AD-TU phase meter, respectively. These data 
were hand logged and plotted in Figs 9 and 10 for comparison 
with the gain and phase parameters extracted by the analysis 
algorithm discussed in section IV. A very high correlation 
between the extracted parameters and the analog measurements 
is clearly observable. 
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FIGURE 3 - SINUSOIDAL SIGNAL RECONSTRUCTION TEST CIRCUIT 
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C. SQUARE WAVS RESPONSE 



This test was designed to evaluate the accuracy of the 
data acquisition system in reconstructing the higher 
harmonics contained within a periodic signal. Since a 
square wave is known to be composed of only odd harmonic 
components, with known relative amplitudes, the Fourier 
coefficients derived from this test were easily compared to 
theoretical results. 

3y injecting the square wave input into more than one 
A/E input channel simultaneously, a measurement of the 
interchannel sampling delay was possible through observation 
of the resulting phase shift between adjacent channels. 
Compensation for the artificially induced phase lag was 
accomplished within the BASIC data reduction algorithm. 
Referring to Eig 11, which illustrates the phase shift 
problem graphically, delta t was the amount of time required 
to switch from one A/D channel to the next and complete a 
conversion. The software steps for the switching process 
amounted to 74.5 micro- seconds of apparent phase lag. 3v 
adding this value to the time term within the reduction 
algorithm, the phase shift problem was nearly eliminated. 
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FIGURE 11 - PHASE 



ERROR DUE TO IITT3RCH AH1IE L SAMPLIUG LAO 



The results of the harmonic reconstruction test are 
shewn in Pig 12, which compares the extracted harmonic 

content cf the square wave as produced by the REDUCE 
routine, with the theoretical expected values. The test was 
actually performed for several input frequencies ranging 

from 5 Hz to over 100 Hz, however, the resulting harmonic 

spectrum is shown only for the 10 Hz signal so as to 

illustrate as many harmonics as possible. 

For comparison purposes, the phase shift realized with 
and without compensation within the analysis program are 
plotted as a function cf frequency in Fig 13. 
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FIGURE 12 - SQUARE WAVE RECONSTRUCTION HARMONIC SPECTRUM 
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FIGURE 13 - EFFECT OF COMPENSATION ON INDUCED PHASE ERROR 



VI. SYSTEM APPLICATION 



Subsequent to the qualification tests and refinement of 
the reduction algorithm, the system was applied to the 
actual experimental environment for which it was intended. 
The system was integrated into the CCR airfoil experimental 
set-up as illustrated in Fig 14. This phase of the 
development was conducted for two important reasons: 

* Evaluate the performance of the system under actual 
laboratory conditions in search of further improvment areas. 

* Examine the Coanda sheet pressure profile with 
respect to phase and amplitude while sinusoidally modulating 
the plenum pressure of the airfoil section. 

A. OPERATING CONDITIONS 

The wind tunnel was configured to operate with steady 
flow during this initial evaluation run. Only the plenum 
pressure of the airfoil section was modulated sinusoidally 
with various driving frequencies ranging from 3.7 Hz to 13.7 
Hz . 

Previous work, presented in Refs 7 and 8, produced 
measurements of the Coanda sheet pressure profile using data 
from a true RMS meter. These data were hand logged and 
plotted. A measurement of the phase relationship was not 
possible using this technique, as the phase meter was 
inaccurate in the low frequency range investigated. 
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Digital data acquisition, therefore, provided the first 



opport un ity 


for observing 


the phase shift 


between the 


dri 


ving force 


and the pressure reaction on the 


surface of 


t he 


air foil . 


Included in 


Appendix F is the 


CONTROL file 


used in this 


experimental 


run. 600 datum 


points were 


recorded at 5 


-millisecond intervals for each analog channel. 


The 


channels 


sampled were: 






1 . 


C’n 0 


.Plenum reference pressure 




2 . 


Ch 1 


•Scanivalve pre 


ssure (channels 10 


thru 17) 


3 # 


Ch 2.... 


.Hot wire annemometer 





At each frequency, the Scanivalve was cycled along each 
of the indicated channels which corresponded to stations 23 
through 30 of the airfoil. The actual logging of the more 
than 86,000 data points required approximately 45 minutes, 
of which approximately 35 minutes were devoted to effecting 
adjustment of the tunnel operating conditions and driving 
frequency . 

Figures 15 through 20 show the graphical results of the 
data reduction which followed. Credibility is lent to the 
results by the close correlation achieved with the previous 
investigative efforts, and the consistency displayed among 
results of individual runs. 

The graphical results of the phase extraction process 
are presented for documentary purposes in Figs 21 through 
26. It was not within the scope of this work to analyze in 
detail the aerodynamics of the CCR. Therefore, the reader is 
directed to refs. 8 and 11 for more explicit information 
regarding the CCR analysis. 
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FIGURE 14 - SYSTEM APPLICATION CONFIGURATION 
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STATION 

FIGURE 15 - FUNDAMENTAL MODE COANDA SHEET PRESSURE 

PROFILE (3.7 HZ) 
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STRTIPN 

FIGURE 16 - FUNDAMENTAL MODE COANDA SHEET PRESSURE 

PROFILE (5.1 HZ) 
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STHT I ON 

FIGURE 17 - FUNDAMENTAL MODE COANDA SHEET PRESSURE 

PROFILE (6.4 HZ ) 
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STRTION 

FIGURE 18 - FUNDAMENTAL MODE COANDA SHEEP PRESSURE 

PROFILE (8.5 HZ) 
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STRTION 

FIGURE 19 - FUNDAMENTAL MODE COANDA SHEET PRESSURE 

PROFILE (10.7 HZ) 
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STATION 

FIGURE 20 - FUNDAMENTAL MODE COANDA SHEET PRESSURE 

PROFILE (13.7 HZ) 
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5TRT 1 ON 

FIGURE 21 FUNDHMENTRL MODE CURNDH SHEET PHASE DISTRIBUTION 
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FIGURE 22 FUNDRMENTRL MODE COHNDR SHEET PHH5E DISTRIBUTION 
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VII. CONCLUSIONS AND RECOMMENDATIONS 



During the course of the acquisition system development, 
modifications were constantly made with the intent of 
improving the performance or operator interface. System 
qualification and implementation disclosed several 
additional areas in need of improvement and, based on the 
experienced gained up to the time of this writing, the 
upgrade items discussed in this section are believed to be 
worthy of inclusion in any further development or future 
generations of the subject system. In some cases 
alternative solutions to existing shortcomings are 
presented, taking into consideration current industry 
developments in compatible hardware modules. 



A. INTERCHANNEL SAMPLING LAG 

As previously discussed, the finite amount of time 
required for the processor to switch from one analog channel 
to the next, and make a conversion, caused an apparent phase 
shift in the resulting reconstruction of two or more 
adjacent channel signals. This problem was partially 
overcome by time adjustments within the reduction algorithm. 
However, inaccuracies were still attributable to this 
problem. 
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Two additional approaches to the problem remain: 

1 • Interchann el Delay 

Effecting a reduction in the interchannel delay 
time, thereby reducing the relative influence of the lag, is 
one possible solution. This could be accomplished by the 
inclusion of a DMA module within the MDS mainframe to 
augment the capabilities of the SINETR AC-8 00 . This solution 
although not absolute, would achieve a decrease of the 
interchannel delay from 74.5 microseconds to 15 

microseconds . 

2 • I nd i vidual Sample and H ol d C ir cuitry 

The system as described herein contained only one 
sample and hold circuit which was located downstream of the 
multiplexor unit. Since each channel shared the same sample 
and hold circuit,, it was impossible to strobe all channels 
simultaneously. Inclusion of an independent sample and hold 
circuit slement dedicated to each analog channel input would 
eliminate the phase shift problem completely, since all 
channels would be sampled at precisely the same instant when 
triggered by a common source. The sample and hold circuit 
would maintain the DC level until the A/D was able to poll 
the individual inputs through the multiplexor. This concept 
is illustrated in Fig 27. 
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Single Sample and Hold 




Multiple Sample and Hold 



■IGUHE - 27 SINGLE VS MULTIPLE SAMPLE AMD HOLD CONCEPT 




SYSTEM ACQUISITION SPEED 



3 . 



As presented, the acquisition system was limited to an 
absolute maximum sampling rate of 500 Hz for more than one 
analog channel input. This rate could be improved for a few 
more channels to a maximum of 1 KHz with modifications no 
the timer interrupt and use of the program interrupt mode on 
the SINETBAC-300 . 

For any significant improvement, however, the actual 
start of scan trigger would require alternate sourcing. The 
A/D board provided for an on-board control of the scan clock 
or external triggering. A modification to the triggering of 
the scan clock could be effected with minimal additional 
circuitry of local design, utilizing a general purpose 
prctc-typing circuit board for generation of a strobe or 
sensing cf an external syncronization pulse. It is 
important to realize that any such design should attempt to 
retain software control over the sampling rate so as net to 
lose this flexibility feature. 

Tremendous reductions in software could be realized with 
the addition of the Direct Memory Access module. This 
addition would increase the maximum scan rate attainable 
from .5 KHz to approximately 11 KHz for 6 channels or from 1 
KHz to 33 KHz for 2 channels of input. 

In short, the addition of a DMA module is highly 
recommended in consideration of the multiple improvements m 
svstem performance that it affords for a modest expenditure. 
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c. 



DATA REDUCTION 



The concept of locally reducing the data has many 
advantages, and likewise disadvantages, which must be 

considered in future modifications to the system. The 
decision to locally reduce data was based upon two major 
factors. First, it was desired that the feasibility of 
local reduction on a microprocessor be investigated. 

Secondly, during the design stages the only data 

communications link available to the W.R. Church computer 
facility ISM-360 for remote processing was via Teletype 
speed (110 baud) modem. Anticipating the generation of 

250,000 words of data each experimental session, 
transmission over the existing time-share system network was 
deemed unreasonable. Transfer of this volume of data would 
have required at best 7 hours real time, assuming minimal 
handshaking and system interruptions. The potential of 
generating several data diskettes during one experimental 
session renders a slow transmission rate link totally 
impractical. The CP/CMS system did not, at that time, 
exhibit the reliability necessary for such a link to be used 
effectively. At the time of this writing the computer 
center was completing the installation of communication 
links capable of 9500 baud. transmission rates. At this 
rate, a full diskette (250K bytes) could be transmitted in 
as few as 5 minutes. This capability would greatly enhance 
the computing power of the system, considering the increased 
sophistication of reduction techniques and output facilities 
(plotters, high speed printers, etc.) which would then be 
made available. 

Should the autonomy of the system be an over-riding 
consideration, it is recommended that a high speed printer. 
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Digital tc Analog (D/A) module and an X-Y plotter be 
included as suplementary system peripherals. The inclusion 
of an external mathematics module would further improve the 
system’s computational speed and efficiency. Such a module, 
commercially available, would perform all floating-point 
mathematical operations (add, subtract, multiply and divide) 
in circuitry external to the 3080 microprocessor at 
approximately ten times the speed currently available. The 
addition of these modules and peripherals would upgrade the 
system into a completely independent, highly flexible data 
acquisition and computational device capable of a multitude 
of data legging or analytical tasks. 
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APPENDIX A 



GLOSSARY 



1. accuracy: The ability of a measurement system to 

determine the true level or state of a variable in 
terms according to standards of reference. 

2. A/D: analog to digital (adjective or noun) 

3. Alias: Nhen varying signals are' sampled at equally 
spaced intervals, two frequencies are considered to be 
aliases of one another if they cannot be distinguished 
from each other by an analysis of their equally spaced 
val ues . 

4. ASCII: American Standard Code for Information 

Interchange. This is a seven-bit-plus-parity code 
established by the American National Standards 
Institute to achieve cpmpatibility between data 
services. Also called USASCII. 

5. assembly: A listing which contains both source code and 
machine code. 

6. 3ADD : A data transmission rate expressed in 3ITs per 
second . 

7. 3IT: Binary digiT. A single unit of information in a 
binary word. 

8. buffer: A group of memory locations used to store 
specific data (input data, constants, output data, 
etc . ) . 
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9. byte: An eight-BIT word which is processed as a single 

quantity. 

10. CPU: Central Processing Unit. The area of the 

microprocessor which computes and sequences all logic 
and arithmetic functions. 

11. CRT: 'Cathode Ray Tube - A television-like picture tube 
used in visual display terminals. 

12. D/A: The inverse of the A/D process. 

13. DMA: Direct Memory Access - a facility that permits I/O 
transfers directly into or out of memory without 
passing through the processor's general registers; 
either performed independently of the processor or on a 
cycle-srealing basis. 

14. EPRCM: erasable/programmable read only memory 

15. Folding Frequency: The lowest frequency which is its 

own alias, or that which is one-half the sampling rate 
when samples are continuously made at equal intervals. 

16. I/O: in put/ou tpur 

10 

17. K: A suffix which indicates a group of 1024 (2 ) items 

as in ' 4K of memory' meaning 4096 memory locations. 

13. Lag: A difference in time of occurrence between two 

events . 

19. machine code: The BIT patterns actually used by the U-P 
in order to carry out its assigned logic functions. 

20. MODEM: Modulator DEModulator - an electronic device 

which modulates signals transmitted over communications 
circuits. 

21. MUX: a multiplexing device 

22. . nibble: The upper or lower four BITS in one byte. 
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23- page: a 256 byte segment of memory 

24. RAM: Random access memory. Volatile memory used for 

variable storage and data manipulation. 

25. register: A storage location located in the CPU. 

26. Resolution: The ability to determine signal differences 
in varying signals. 

27. ROM: read only memory, non-volatile 

28. Sample and Hold: A device for sampling the amplitude of 
a signal at a given time and holding that amplitude. 

2S. Sampling Theorem: Ny'guist's result that equi-spaced 

data, with two or more points per cycle of highest 
frequency, allows reconstruction of band-limited 
functions. 

30. software: The program which resides in the U-P's 

memory . 

31. source code: The program written by the user. 

32. U-P: microprocessor 
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APPENDIX 3 



PROGRAM 



FLOW DIAGRAMS 
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HCQUIRE PROERRM FLOW DIRERRM 




Y E £ 



DIMY 

'on control' 






REBOOT TO CP/M 
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ACQUIRE: PROGRAM FLOW DIRGRRM CCONT) 
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REQUIRE PROERRM FLOW DIHERRM CCONT) 
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CONVERT PROGRAM FLOW CHART 
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APPENDIX C 



PROGRAM LISTINGS 
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EQUATES FOR DATA ACQUISITION MODULE 



PORT ASSIGNMENTS 



0000 


- 


PORTO 


EQU 


0 




0001 




PORT 1 


EQU 


1 




0002 


- 


PORT 2 


EQU 


2 




0003 


• 


PORT 3 


EQU 


3 








* 

• 

9 

• 


SINETRACK 800 ADDRESS ASSIGNMENTS 


0010 


2 


BASE 


EQU 


10H 




0010 


z 


DSTAT 


EQU 


BASE 




001 1 


2 


DDATA 


EQU 


8ASE+1 




001 1 


z 


START 


EQU 


BASE + 1 




0013 


z 


CON V 


EQU 


BASE + 3 




0012 


z 


FINAL 


EQU 


BASE +2 




0012 


z 


RDCUR 


EQU 


BASE+2 




0013 


- 


RDFNL 


EQU 


BASh+3 




0001 


2 


EOC 


EQU 


1 




0080 


z 


EOS 


EQU 


80H 




0000 


z 


DCMD 


EQU 


0 








9 

• 

9 


GENERAL 


I/O ASSIGNMENTS 


C0F4 


- 


T DATA 


EQU 


OF 4H 


TTY DATA 


00F5 


2 


TSTAT 


EQU 


0F5H 


TTY STATUS 


00F3 


2 


TCMD 


EQU 


0F5H 


TTY CONTROL 


00F6 


2 


CDATA 


EQU 


OF 6H 


CRT DATA 


00F7 


2 


CSTAT 


EQU 


0F7H 


CRT STATUS 


00F7 


2 


CCMD 


EQU 


0F7H 


CRT CONTROL 


OOFC 


2 


INTMSK 


EQU 


OFCH 


INTERUPT MASK 


00 FF 


- 


RCLK 


EQU 


OFFH 


REAL TIME CLOCK 






5 

• 

9 


GENERAL 


EQUATES 




0005 


- 


• 

ENTRY 


EQU 


005H ; 


; BDOS ENTRY POINT 


0000 


2 


BOOT 


EQU 


OOH ; 


;BOOT POINT 


005C 


2 


TFCB 


EQU 


05CH ; 


[DEFAULT FOB 


0080 


2 


TBUFF 


EQU 


080H ; 


[DEFAULT BUFFER 


0001 


2 


TXRDY 


EQU 


1 




0002 


2 


RXRDY 


EQU 


2 




OOOD 


2 


CR 


EQU 


ODh' 




000 A 


2 


LF 


EQU 


OAH 





. ******************************************* 
1 BUFFER ALLOCATION & 



31 



DATA ORGANIZATION 






0100 






ORG 


100H 


; VARIABLE AREA 


0100 


C30004 




JMP 


BEGIN 




0103 


5245 41 4420MS 31 : 


DB 


’READ ERROR S’ 


010F 


5752495 445 MS G2: 


DB 


‘WRITE ERROR $’ 


01 1C 


444 953 4E 20MS33 : 


DB 


’DISK FULL $’ 


0127 


44495245 43MS 34: 


DB 


’DIRECTORY FULL 5’ 


0137 


494E564 1 4CMS 35 : 


DB 


'INVALID 


INPUT PARAMETER S' 


0150 


0D0D0D4 1 4EMSG6: 


DB 


ODH,ODH,ODH, 'ANY CHANGES? Y/N $ 


0165 


0D0D0D4544MS 37 : 


DB 


ODH,ODH ,ODH, ’EDIT CONTROL FILES 


017E 


0D0D0D444 1 MS 38 : 


DB 


ODH.ODH.ODH ,'DATA DISK PROTECTS 


0193 


5 4494D 4520MS 310: 


DB 


’TIME 


SVO SV1 S’ 


01AE 


44415441 20MSG 1 1 : 


DB 


'DATA TRUNCATED S’ 


0 1 EE 


474F4F4420MSG12: 


DB 


'GOOD RUN? Y/N S’ 


0 1 CD 


00434F4E 


54CNTRL: 


DB 


0, 'CONTROL ’ ,0,0, 0,0, 0,0,0 


01 EO 


0050524F54PRTCT: 


DB 


0, 'PROTECT ’ ,0,0, 0,0, 0,0,0 


01 F3 


004341 4C56CALIB: 


DB 


0 , ’ CALVALU ' ,0,0, 0,0, 0,0,0 


0206 


0044415441 DATA : 


DB 


0, 'DATA 


’ ,0,0, 0,0, 0,0, 0,0 


021 A 


00 


E0FL3: 


DB 


0 




02 1 E 


0000 


TIME : 


DW 


0 




021 D 


0000 


TIMO: 


DW 


0 




021 F 


0000 


30T0 : 


DW 


0 




0221 


0000 


POINT: 


DW 


0 : 


; BUFFER POINTER 


0223 


0000 


5CNTR : 


DW 


0 : 


[SCAN COUNTER 


0225 


OOOOOOOOOOWORK : 


DB 


0,0, 0,0, 0,0 ; WORKING AREA 


022B 


0000 


PAQtR : 


DW 


0 


PAGE COUNTER 


022D 


00 


RCDS : 


DB 


0 


RECORDS STORAGE 


022E 


00 


SVOO : 


DB 


0 


INITIAL SCANIVALVE 0 B 


022F 


00 


SV01 : 


DE 


0 


FINAL SCANIVALVE 0 PCS 


0230 


00 


SV10: 


DB 


0 


INITIAL SCANIVALVE 1 B 


0231 


00 


SV1 1 : 


DB 


0 


FINAL SCANIVALVE 1 POS 


0232 


00 


FLA 30: 


DB 


0 


FLA30 


0233 


00 


FLA 31 : 


DB 


0 


FLA31 


2000 




DEUF: 


ORG 


2000H 


START OF DATA AREA 


2000 


00 


ICHNL : 


DB 


0 




2001 


00 


FCHNL : 


DE 


0 




2002 


00 


SVO : 


DB 


0 




2003 


00 


SV1 : 


DB 


0 




2004 


0000 


SCANS : 


DW 


0 




2006 


0000 


SCNRT: 


DW 


0 




2008 


0000 


FREQ: 


DW 


0 




200 A 


0000 


DUMY: 


DW 


0 




200C 


OCOOOOOO 




DW 


0,0 




0400 




EE 31 N : 


ORG 


400K ; 


[START OF PROGRAM AREA 


0400 


3 IFF IF 




LXI 


SP , 1 FFFH ; 


[INITIALIZE STACK 


0403 


214207 




LXI 


H,TSVC ; 


[LOAD INTERUPT VECTOR 



82 



0406 


3EC3 




MVI 


A , OC 3H 




0408 


320800 




STA 


08H 




040B 


220900 




SHLD 


OSH 




040E 


CD1 404 




CALL 


AUTO 




041 1 


C30000 




JMP 


EOOT 








J ******************************************* 






• 

9 


AUTO 


- AUTOMATIC 


CONTROL SEQUENCE 






• 

9 


USES 


THE EXISTING CONTROL FILE IF 






• 

9 


IF VALID, SCANS 


THE SPECIFIED ANALOG 






• 

9 


CHANNELS AND RECORDS DATA ON DISK 






******************************************* 






AUTO: 








0414 


CD1 705 




CALL 


PRLOAD 


; VALI D CONTROL FILE? 


0417 


210F02 




LXI 


H,DATA+S 


; ADDR OF EXTENSION 


041 A 


3E30 




MVI 


A, ’O’ 


; ASCII ZERO 


04 1 C 


77 




MOV 


M , A 




04 1 D 


23 




I NX 


H 




04 1 E 


77 




MOV 


M , A 




04 1 F 


23 




I NX 


H 




0420 


77 




MOV 


Pi, A 




0421 


3A2E02 




LDA 


If) 

c 

o 

o 

•*1 

t T J 


TCH INITIAL CHANNEL 


0424 


320220 




STA 


svo 


{INITIALIZE SVO 


0427 


3A3002 




LDA 


SV10 


{FETCH INITIAL CHANL 


0 42A 


320320 




STA 


SVl 


{INITIALIZE SVl 


042D 


CD4108 




CALL 


CRLF 


{CARRIAGE RtT LN FllD 


0430 


119301 




LXI 


D, MSG 10 


{"TIME, SVO, SVl" 


0433 


CD 1 108 




CALL 


PRINT 




0436 


AF 




XRA 


A 


{CLEAR ACCUMULATOR 


0 43 7 


323202 




STA 


FLAGO 


{CLEAR FLAGO 


043A 


323302 


AUT10: 


STA 


FLAG 1 


{CLEAR FLAG 1 


043 D 


1 10040 




LXI 


D , 4000H 


{SET HIGH ADDRESS 


0440 


21 1020 




LXI 


H , DBUF+ 1 OH 


0443 


0E00 




MVI 


C,0 




0445 


CDE1F9 




CALL 


OF SE IK 




0448 


CDE808 




CALL 


SETVLV 




044B 


2A1B02 




LHLD 


TIME 


{FETCH CURRENT TIME 


044E 


CD340S 




CALL 


PRHL 


{PRINT H,L ON CRT 


0451 


CD0B05 




CALL 


TAB 




0454 


3A0220 




LDA 


SVO 


{FETCH 


0457 


CD2708 




CALL 


PHEX 


{PRINT ASCII PAIR 


045 A 


CD0B05 




CALL 


TAB 




045D 


3A0320 




LDA 


SVl 




0460 


CD2708 




CALL 


PHEX 




0463 


CD0B05 




CALL 


TAB 




0466 


CDC405 




CALL 


SCAN 




0469 


2A2102 




LHLD 


POINT 


{FETCH BUFFER POINTER 


046C 


7C 




MOV 


A ,H 




046D 


D620 




SUI 


20H 




046F 


67 




MOV 


H , A 




0470 


29 




DAD 


H 


{SHIFT LEFT ONE 



83 



0471 


D27E04 




J NO 


AUT20 


• 


0474 


26FF 




MVI 


H ,OFFH 


;SET MAX FILE LENGTH 


0476 


E5 




PUSH 


H 




0477 


1 1 AEO 1 




LXI 


D,MSG1 1 


; "DATA TRUNCATED" 


047A 


CD 1 108 




CALL 


PRINT 




047D 


El 


AUT20 : 


POP 


H 




047E 


7C 




MOV 


A ,H 


; NUMBER RCDS TO WRITE 


047F 


3C 




I NR 


A 


; I INCREMENT BY ONE 


0480 


322D02 




STA 


RODS 


; STORE IN RCD COUNTER 


0483 


210020 




LXI 


H ,DBUF 


; POI NT TO BEG OF DATA 


0486 


1 10602 




LXI 


D,DATA 


; DATA FCB 


0489 


CD9507 




CALL 


WRFILE 


; WRITE THE DATA FILE 


048C 


3A2F02 




LDA 


SV01 


;FETCH LST TO BE SCND 


048F 


47 




MOV 


B,A 


• 

9 


0490 


3A0220 




LDA 


SVO 


;FETCH CURRENT SVO 


0493 


E8 




CMP 


B 


;SAME? 


0494 


C2A604 


AUT21 : 


JNZ 


AUT22 


; NO - DON'T SET FLAGO 


0497 


3EFF 




MVI 


A ,OFFH 


« 

9 


0499 


323202 




STA 


FLAGO 


;SET FLAGO 


049C 


3A2E02 




LDA 


SVOO 


;FETCH FIRST TO SCAN 


049F 


3D 




DCR 


A 




04A0 


320220 




STA 


SVO 


;RESET CURRENT CHNL 


04A3 


C3AB04 


AUT22: 


JMP 


AUT24 




04A6 


FE 18 




CPI 


24 


;MAX VALUE EXCEEDED? 


04A8 


CA9704 


AUT24 : 


JZ 


AUT21 


; YES - SET FLAGO 


04AB 


3A3102 




LDA 


SV1 l 


; LAST SVl TO SCAN 


04AE 


47 




MOV 


B , A 


• 

9 


04 AF 


3A0320 




LDA 


SV1 


;FETCH CURRENT SVl 


04B2 


B8 




CMP 


B 


; SAME 7 


04B3 


C2C504 


AUT31 : 


JNZ 


AUT32 


; NO - DON’T SET FLAG1 


04B6 


3EFF 




MVI 


A,OFFH 


• 

9 


04E8 


323302 




STA 


FLAG1 


; SET FLAG 1 


04B B 


3A3002 




LDA 


SV10 


;FETCH 1ST TO SCAN 


04E E 


3D 




DCR 


A 




04BF 


320320 




STA 


SV1 


;RESET CURRENT CHNL 


04C2 


C3CA04 


AUT32: 


JMP 


AUT34 




04C5 


FE30 




CPI 


48 


;MAX VALUE EXCEEDED? 


04C7 


CAB604 


AUT34 : 


JZ 


AUT31 


; YES - SET FLAG l 


04CA 


3A3202 




LDA 


FLAGO 


;FETCH FLAGO 


04CD 


47 




MOV 


B , A 




04CE 


3 A3 3 02 




LDA 


FLAG 1 


;FETCH FLAG 1 


04D 1 


4F 




MOV 


C , A 




04D2 


AO 




ANA 


B 


;BOTH SET? 


04D3 


C2F504 




JNZ 


EXIT 


; YES - EXIT AUTO MODE 



84 



NEXT 



04D6 


3A0220 




LDA 


SVO 




04D9 


3C 




I NR 


A 


;STEP ONCE 


04DA 


320220 




STA 


SVO 




04DD 


3A0320 




LDA 


SV1 




04E0 


3C 




I NR 


A 




04E 1 


320320 




STA 


SV1 


: STEP ONCE 


04E4 


211102 




LXI 


H.DATA+ll ;LOAD ADDR OF EXT 






NEXT 1 : 








04E7 


7E 




MOV 


A.M ;FETCH ASCII VALUE OF LSB 


04E8 


3C 




I NR 


A 


; INCREMENT IT 


04E9 


77 




MOV 


M , A 


; RESTORE IN MEMORY 


04EA 


FE3A 




CPI 


• . • 
• 


;EXCt£D 9? 


04EC 


DA3D04 




JC 


AUT10 


; NO - SCAN AGAIN 


04ZF 


3630 




MVI 


M,30H 


; RESTORE IN MEMORY 


04F1 


26 




DCX 


H 


; GET NEXT MSB 


04F2 


C3E704 


EXIT: 


JMP 


NEXT 1 


; ADJUST NEXT MSB 


04F5 


1 1BE01 




LXI 


D, MSG 12 


; "GOOD RUN Y/N" 


04F8 


CD1 108 




CALL 


PRINT 




04FB 


CDFC07 




CALL 


CRTIN 


; GET CHAR FROM CONS 


04FE 


FE59 




CPI 


*Y * 


; YES RESPONSE? 


0500 


CO 




RNZ 




; NO - RETURN 


0501 


1 1E001 




LXI 


D,PRTCT 




0504 


CD5106 




CALL 


SETFCB 




0507 


CDAE08 




CALL 


MAKE 


; WRITE PROTECT FILE 


050A 


C9 


TAB: 


RET 






0506 


0608 


TAB 1 : 


MVI 


B,8 


;COUNTER FOR 8 BLANKS 


050D 


3E20 




MVI 


A , 20H 


; ASCI I BLANK 


050F 


CD0508 




CALL 


CRTOUT 


; SEND TAB CHAR TO CRT 


0512 


05 




DCR 


B 




0513 


C20D05 




JNZ 


TAB 1 




05 16 


C9 




RtT 
















; * 


PRLOAD 


- READS IN CONTROL FILE AND 






• 

* 




EXECUTES 


IF VALID 












PR LOAD: 








0517 


CD5008 




CALL 


LOGA 


;LOGI N DISK A 


05 1 A 


1 1 C DO 1 




LXI 


D, CNTRL 


:PT TO CNTRL FILE BLK 


05 1 D 


21 1020 




LXI 


H , DBUF+ 1 OH ; PT TO DATA BUFFER 


0520 


CD7007 




CALL 


RDFILE 


; RD CNTRL FILE 


0523 


111020 




LXI 


D , DBUF+ 1 OH 


0526 


D5 




PUSH 


D 


; SAVE 


0527 


CD 1 108 




CALL 


PRINT 


; DISPLAY CONTROL FILE 


052A 


El 




POP 


H 


; RESTORE H 


0526 


CDD60S 




CALL 


COLON 


;LOOK FOR FIRST COLON 


052E 


CDD606 




CALL 


COLON 


;LOQK FOR 2ND COLON 



85 



0531 


CDDB06 


CALL 


0534 


E5 


PUSH 


0535 


CDE306 


CALL 


0538 


220420 


SHLD 


053E 


El 


POP 


053C 


CDDB06 


CALL 


053F 


E5 


PUSH 


0540 


CDE306 


CALL 


0543 


220620 


SHLD 


0546 


El 


POP 


0547 


CDDB06 


CALL 


054A 


E5 


PUSH 


054B 


CDE306 


CALL 


054E 


7D 


MOV 


054F 


320020 


STA 


0552 


El 


POP 


0553 


CDDB06 


CALL 


0556 


E5 


PUSH 


0557 


CDE306 


CALL 


055 A 


7D 


MOV 


0555 


320120 


STA 


055E 


E 1 


POP 


055F 


CDDB06 


CALL 


0562 


E5 


PUSH 


0563 


CDE306 


CALL 


0566 


7D 


MOV 


0567 


322E02 


STA 


056A 


E 1 


POP 


0565 


CDD506 


CALL 


056E 


E5 


PUSH 


056F 


CDE306 


CALL 


0572 


7D 


MOV 


0573 


322F02 


STA 


0576 


E 1 


POP 


0577 


CDDB06 


CALL 


057A 


E 5 


PUSH 


0575 


CDE306 


CALL 


057E 


7D 


MOV 


057F 


323002 


STA 


0582 


E 1 


POP 


0583 


CDDB06 


CALL 


0586 


E5 


PUSH 


0587 


CDE306 


CALL 


058 A 


7D 


MOV 


0585 


323102 


STA 


058E 


El 


POP 



COLON 

H 


;FIND THIRD COLON 


FLTHX 


{FLOATING TO HEX 


SCANS 

H 


{STORE HEX IN SCANS 


COLON 

H 


{FIND NEXT COLON 


FLTHX 


{FLOATING TO HEX 


SCNRT 

H 


{STORE IN SCAN RATE 


COLON 

H 


{FIND NEXT COLON 


FLTHX 


{CONVERT 


A ,L 


{FETCH RETURNED VALUE 


ICHNL 

H 

COLON 

H 

FLTHX 


{PUT IN INITIAL CHNL 


A ,L 


{FETCH RETURNED BYTE 


FCHNL 

H 

COLON 

H 

FLTHX 

A,L 


{STORE IN FINAL CHNL 


SVOO 

H 

COLON 

H 

FLTHX 
A ,L 


; 1ST SCANIVALVE 0 SET 


SV01 

H 

COLON 

H 

FLTHX 
A ,L 


;LST SCANIVALVE 0 SET 


SV10 

H 

COLON 

H 

FLTHX 
A ,L 


{1ST SCANIVALVE 1 SET 


SV1 1 
H 


;LST SCANIVALVE 1 SET 



CHECK WITH OPERATOR FOR VALID CONTROL 
FILE 

***************** ******* ************** ****** 



86 



058F 


115001 




LXI 


D,MSG6 


; M ANY CHANGES?" 


0592 


CD 1 108 




CALL 


PRINT 




0595 


CDFC07 




CALL 


CRTIN 


; GET CHAR FROM CONS 


0598 


Fl4E 




CPI 


* N ' 


; "NO" RESPONSE? 


059A 


116501 




LXI 


D,MSG7 


; "EDIT CONTROL FILE" 


059D 


C2DA07 




JNZ 


ERREX 


{EXIT PROGRAM 














WRITE 


THE CONTROL FILE ON DISK B 






* * * * * * 5|c 5jc * * * * 5jc * * * * ^ 5jc * * * 5^ 3^ * * * * * jjc 5^ * 3^ * * * * 5jc * 


05 AO 


3A6B00 




LDA 


TFCB+15 


;FETCH RECORD COUNT 


05A3 


3C 




I NR 


A 




05 A4 


322D02 




STA 


RODS 


{STORE IN MEMORY 


05A7 


CD5808 




CALL 


LOSE 


{LOGIN DISK B 


05AA 


1 1E001 




LXI 


D ,PRTCT 


; PT TO PROTECT BLOCK 


05 AD 


CD5106 




CALL 


SETFCB 


{SET FCB 


05B0 


CDBE08 




CALL 


SEARCH 


{SEARCH FOR PROTECT 


05B3 


3C 




I NR 


A 


{DOES IT EXIST? 


05E 4 


1 1 7E01 




LXI 


D,MSG8 


{"DATA DISK PROTECTED" 


05B 7 


C2DA07 




JNZ 


ERREX 


;YES - EXIT PROGRAM 


05BA 


1 1CD01 




LXI 


D.CNTRL 


;PT TO CONTROL BLOCK 


05BD 


211020 




LXI 


H,DBUF+10H ;PT TO STORED INFO 


05C0 


CD9507 




CALL 


WRFILE 


{WRITE CONTROL TO B 


05C3 


C9 




RET 










* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 








SCAN - 


COMPLETES N SCANS OF M CHNLS 








ENTRY: 


SCANS = 


NUMBER OF SCANS 










ICHNL ^INITIAL CHNL TO SCAN 










FCHNL = 


FINAL CHANNEL TO SCAN 










TIME = 


2 BYTE TIME IN MS 










EXIT: 


REGISTERS UNCHANGED 










c 


SCAN: 








05C4 


E 5 




PUSH 


H 




05C5 


D5 




PUSH 


D 




05C6 


C5 




PUSH 


B 




05C7 


F5 




PUSH 


PSW 




05C8 


3A0020 




LDA 


ICHNL 


{FETCH INITIAL CHANNEL 


05CB 


D31 1 




OUT 


START 


{SET IT 


05CD 


3A0120 




LDA 


FCHNL 


{FETCH FINAL CHANNEL 


05 DO 


D312 




OUT 


FINAL 


{SET IT 


05D2 


2A0620 




LHLD 


SCNRT 


{FETCH SCAN RATE 


05D5 


221D02 




SHLD 


TIMO 


{STORE IN TIME FACTOR 


05D8 


21FD05 




LXI 


H, SC ANA 


{GET I NT SVC JUMP 


05DE 


CD2E07 




CALL 


TIMER 


{ENABLE I NT TIMER 


05DE 


2A0420 




LHLD 


SCANS 


{FETCH * OF SCANS 


05E 1 


222302 




SHLD 


SCNTR 


{PUT IN SCAN COUNTER 


05E4 


2A1E02 




LHLD 


TIME 


{FETCH TIME 


05E7 


21 1020 




LXI 


H , DBUF+ 1 


OH {GET BUFFER LOCAT 


05ZA 


222102 




SHLD 


POINT 


{STORE IN POINTER 



SCAN8: 



37 



05ED 


2A2302 




LHLD 


SCNTR 


;FETCH SCAN COUNT 


05F0 


7C 




MOV 


A ,H 


• 

9 


05F 1 


55 




ORA 


L 


{FINISHED? 


05F2 


C2ED05 




JNZ 


SCAN8 


; NO - KEEP SCANNING 


05F5 


CD6907 




CALL 


TIMOFF 


{KILL INTERUPT ROUTIN 


05F8 


FI 




POP 


PSW 




05F9 


Cl 




POP 


B 




05FA 


D 1 




POP 


D 




05FB 


El 




POP 


H 


{RETORED 


05 FC 


09 


SCANA : 


RET 






05FD 


E5 




PUSH 


H 




05FE 


D5 




PUSH 


D 




05FF 


C5 




PUSH 


B 




0600 


F5 




PUSH 


PSW 




0601 


2A0620 




LHLD 


SCNRT 


GET SCAN RATE 


0604 


221D02 




SHLD 


TIMO 


RESET TIMOUT FACTOR 


0607 


2A2102 




LHLD 


POINT 


GET BUFFER POINTER 


060A 


3E00 




MVI 


A ,DCMD 


INITIALIZATION CMD 


060C 


D310 




OUT 


DSTAT 


SET FLIP FLOPS 


060E 


3A1502 




LDA 


TIME 


GET TIME 


061 1 


77 




MOV 


M , A 


STORE IN BUFFER 


0612 


23 




I NX 


H 


MOVE POINTER 


0613 


3A1C02 




LDA 


TIME+1 


GET 2ND BYTE OF TIME 


0616 


77 




MOV 


M,A 


STORE IN DATA CELL 


0617 


23 


SCANO : 


I NX 


H 


MOVE POINTER 


0618 


D313 




OUT 


CONV l 


[START CONVERSION 


06 1 A 


3c.02 




MVI 


A, 2 ; 


[SET DELAY COUNTER 


06 1 C 


00 


SCAN 1 : 


NOP 


4 

1 


[EXTRA DELAY 


06 1 D 


3D 




DCR 


A i 


[QUIT LOOP? 


06 1 E 


C21D06 




JNZ 


SCAM ; 


;N0 - KEEP COUNTING 


0621 


D5 10 




IN 


DSTAT ; 


[FETCH STATUS 


0623 


E60 1 




ANI 


EOC 




0625 


023 106 




JNZ 


SCAN3 


YES - GO READ DATA 


0628 


3600 




MVI 


M ,00H 


INSERT ERROR FLAG 


062A 


23 




I NX 


H 


MOVE POINTER 


062E 


3600 




MVI 


N,00H 


INSERT ERROR FLAG 


062D 


23 




I NX 


H 


MOVE POINTER 


062E 


C33906 


SCAN3 : 


JMP 


SCAN 4 


READ NEXT CHANNEL 


0631 


D5 1 1 




IN 


DDATA 


GET LSB OF DATA 


0633 


77 




MOV 


M , A 


STORE 


0634 


23 




I NX 


H 


MOVE POINTER 


0635 


DEI 1 




IN 


DDATA 


GET MSB OF DATA 


0637 


77 




MOV 


M , A 


STORE 


0638 


23 


SCAN 4 : 


I NX 


H 


MOVE POINTER 


0639 


DE10 




IN 


DSTAT ; 


[FETCH STATUS 


0635 


E680 




ANI 


EOS ; 


[END OF SCAN? 



88 



063 D 


CA 1 806 






JZ 


SCANO 


; NO - CONV NEXT CHNL 


0640 


222102 






SHLD 


POINT 


;STORE POINTER 


0643 


2A2302 






LHLD 


SCNTR 


{FETCH SCAN COUNT 


0646 


2B 






DCX 


H 


; COUNT DOWN ONE 


0647 


222302 






SHLD 


SCNTR 


; RESTORE UPDATED COUNT 


064A 


FI 






POP 


PSW 




064B 


Cl 






POP 


B 




064C 


D 1 






POP 


D 




064D 


El 






POP 


H 




064E 


C35C07 






JMP 


TSVCO 


; RETURN 








******************************************** 










SETFCB 


- MOVES 


AN INITIAL FCB INTO 












TFCB 


AREA 












ENTRY: 


D,E = FILNAME BLOCK 








******************************************* 






C 


JETFCB : 








065 1 


E5 






PUSH 


H 


; SAVE 


0652 


215C00 






LX I 


H ,05CH 


; DEF AULT FCB 


0655 


C5 






PUSH 


B 


; SAVE 


0656 


0613 






MVI 


B, 19 


; SET COUNTER 






SuTF 1 : 








0658 


1A 






LDAX 


D 


;FETCH EYTE TO MOVE 


0659 


77 






MOV 


M , A 


; STORE IN TFCB AREA 


065A 


23 






I NX 


H 


{INCREMENT H 


065B 


13 






I NX 


D 


{INCREMENT D 


065C 


05 






DCR 


B 


{FINISHED? 


065D 


C25806 






JNZ 


SETF1 


{NO -GET ANOTHER BYTE 


0660 


AF 






XRA 


A 


{CLEAR ACCUM 


0661 


327C00 






STA 


TFCB+32 


0664 


Cl 






POP 


B 




0665 


E 1 






PGP 


H 




0666 


C9 






RET 







* * * 5jC * * 3fC * ^ * 2jC * ^C ^C ^C 3^ * ^ * * * * ^ ?Jc 3fC ^C * * * 5fc * * * 



DECHX - CONVERTS 6 BCD EYTES TO 2 HEX 

* ENTRY: SIX BCD BYTES STARTING 

AT ' WORK * 

* EXIT: TWO HEX AT 'WGRK+4' 



DECHX: 



0667 


212502 


LX I 


H , WORK 


{POINT TO WORK AREk 


066 A 


54 


MOV 


D,H 


{DUPLICATE IN D 


066B 


5D 


MOV 


n ,L 


{DUPLICATE IN E 


066C 


CDS 5 06 


CALL 


HEXBIN 


{CONVERT 1ST PR TO HEX 


066F 


12 


STAX 


D 


{STORE IN WORK 


0670 


13 


I NX 


D 


{MOVE STORAGE POINTER 


0671 


CD8506 


CALL 


HEXBIN 


{CONVERT SECOND PAIR 


0674 


12 


STAX 


D 


{STORE IN WORK+1 


0675 


13 


I NX 


D 


{MOVE POINTER 


0676 


CD8506 


CALL 


HEXBIN 


{CONVERT THIRD PAIR 



89 



0679 


12 




STAX 


D 




067 A 


13 




I NX 


D 




0675 


AF 




XRA 


A 


; CLEAR ACCUMULATOR 


067C 


12 




STAX 


D 


;LOAD ZERO IN WORK+3 


067D 


13 




I NX 


D 


;MOVE POINTER 


067E 


212502 




LXI 


H , WORK 




0681 


CD8E06 




CALL 


BCD2HX 




0684 


C9 




RET 




sRETURN 






♦ ******************************************** 






; SUBROUTINES - 


BCD2HX 


AND HEXBIN 






• 






• 

HEXBIN: 








0685 


7E 




MOV 


A,M 


;FETCH 1ST EYTE 


0686 


17 




RAL 






0687 


17 




RAL 






0688 


17 




RAL 






0689 


17 




RAL 




; SHIFTED TO HIGH NIB 


068 A 


23 




I NX 


H 


;MOVE POINTER 


0685 


56 




ORA 


M 


; BRI N3 IN LOW NIBBLE 


068C 


23 




I NX 


H 


;MOVE POINTER 


068D 


C9 


BCD2HX : 


RET 




; RET UR N 


0685 


CDC906 




CALL 


BCDBN 




0691 


23 




I NX 


H 




0692 


CDC906 




CALL 


BCDBN 




0695 


23 




I NX 


H 




0696 


CDC906 




CALL 


BCDBN 




0699 


CD9D06 




CALL 


MULT 




069C 


C9 


MULT: 


RET 






069D 


3A2502 




LDA 


WORK 




06 AO 


5F 




MOV 


c> f A 




06 A 1 


1600 




MVI 


D,0 




06 A3 


210000 




LXI 


H ,0 




06A6 


CDC106 




CALL 


MUL10 




06A9 


EB 




XCHG 






06 AA 


210000 




LXI 


H ,0 




06 AD 


CDC106 




CALL 


MUL10 




0650 


3A2602 




LDA 


WORK+1 




06E3 


1600 




MVI 


D,0 




0655 


5F 




MOV 


t , A 




0656 


CDC1D6 




CALL 


MUL10 




0659 


3A2702 




LDA 


WORK +2 




065C 


1600 




MVI 


D ,0 




065i 


5F 




MOV 


t , A 




06BF 


19 




DAD 


D 




06C0 


C9 


MUL10: 


RET 






06C1 


0664 




MVI 


B, 100 





90 



MUL20 



06C3 


19 


DAD 


D 


06C 4 


05 


DCR 


B 


06C5 


C2C306 


JNZ 


MUL20 


06C8 


C9 


RET 








BCDBN : 




06C9 


7E 


MOV 


A ,M 


06C A 


4F 


MOV 


C , A 


06CB 


E60F 


ANI 


OFH 


06CD 


5F 


MOV 


E , A 


06CE 


79 


MOV 


A,C 


06CF 


t.6F0 


ANI 


OFOH 


06D 1 


OF 


RRC 




06D2 


OF 


RRC 




06D3 


4F 


MOV 


C,A 


06D4 


OF 


RRC 




0605 


OF 


RRC 




06D6 


81 


ADD 


C 


06D7 


07 


RLC 




06D8 


83 


ADD 


E 


06D9 


77 


MOV 


M , A 


06DA 


C9 


RET 








• ************:*:****************************** 






; COLON 


- FINDS THE NEXT COLON " : " 






• 

> 


IN MEMORY STARTING AT H,L 






• 

> 


EXIT: H,L POINTS TO MEMORY 






• 

> 


POSITION AFTER 












COLON: 




06DB 


3E3 A 


MVI 


A » . • 
H » • 






COL 10 : 




06DD 


BE 


CMP 


M 


06Dt 


23 


I NX 


H 


06DF 


C2DD0S 


JNZ 


COL 1 0 


06E2 


C9 


RET 





; FLTHX - SCANS A BLOCK OF MEMORY FOR 

; BCD ASCII CHARACTERS AND 

; CONVERTS THEM TO A PAIR OF 

; HEX BYTES 

• ******************************************** 
FLTHX: 



06E3 


0606 


MVI 


E , 6 


; SET LOOP COUNTER 


06E5 


E5 


PUSH 


H 


; SAVE 


0SE6 


C5 


PUSH 


B 


;SAVE 


06E7 


212502 


LX I 


H , WORK 


; I INITIALIZE 


06EA 


AF 


XRA 


A 


; WORK 






FLT04 : 






06EE 


77 


MOV 


M , A 


; AREA 


06EC 


23 


I NX 


H 


; TO 



91 



ZEROS 



06ED 


05 




DCR 


B 


06EE 


C2EB06 




JNZ 


FLT04 


06FI 


Cl 




POP 


B 


06F2 


El 


FLT05 : 


POP 


H 


06F3 


7E 




MOV 


A ,M 


06F4 


FE20 




CPI 


* « 


06F 6 


CA0F07 




JZ 


FLTIO 


06F9 


FEOD 




CPI 


CR 


06FB 


CA 1 307 




JZ 


FLT20 


06FE 


E6F0 




AMI 


OF OH 


0700 


FE30 




CPI 


30H 


0702 


C22807 




JNZ 


FLT30 


0705 


7E 




MOV 


A ,M 


0706 


FE3A 




CPI 


3AH 


0708 


F22807 




JP 


FLT30 


070B 


05 




DCR 


B 


070C 


FA 280 7 


FLTIO: 


JM 


FLT30 


070F 


23 




I NX 


H 


0710 


C3F306 


FLT20: 


JMP 


FLT05 


0713 


3E06 




MVI 


A, 6 


0715 


90 




SUB 


B 


0716 


47 




MOV 


B,A 


0717 


2B 




DCX 


H 


0718 


1 12A02 


FLT25 : 


LXI 


D , WORK 


07 1 B 


7E 




MOV 


A ,M 


07 1 C 


E60F 




ANI 


OFH 


07 1 E 


12 




STAX 


D 


07 1 F 


13 




DCX 


D 


0720 


2B 




DCX 


H 


0721 


05 




DCR 


b 


0722 


C21B07 




JNZ 


FLT25 


0725 


C36706 


FLT30: 


JMP 


DECHX 


0728 


l 13701 




LXI 


D,MSG5 


072B 


C3DA07 




JMP 


ERREX 



RESTORE 

RESTORE 

FETCH FIRST CHAR 
IS IT A BLANK ? 

YES - IGNORE IT 
IS IT A CARRIAGE RTN 
YES QUIT SCANNING 
MASK OFF LOW NIBBLE 
IS IT IN HEX RANGE? 
NO - IT IS AN ERROR 
FETCH THE WORD AGAIN 
IS IT > S 

YES - IT IS AN ERROR 
COUNT AS A VALID HEX 
ERROR IF > 6 NUMBERS 



;STEP 
; SCAN 



MEMORY 

AGAIN 



POINTER 



•COMPUTE * DIGITS 
;STORE IN B 
;BACK SPACE POINTER 
? {POINT TO WORK AREA 

;FETCH NEXT LSB 
; CONVERT TO BCD 
;STORE IN WORK AREA 
;MOVE POINTER 
{MOVE SOURCE POINTER 
; COUNT DOWN 
; DO AGAIN 

{CONVERT TO HEXBYTE 



{"INVALID INPUT FIELD” 



* * * * * Zf. * * * * 3fe * * * * * * * * * * 3* * * * * * * * * * * * * * * * * * * * 

TIMER - INTERUPTS TO SPECIFIED 

ROUTINE AFTER NN MILLISECONDS 
ENTRY: H,L = STARTING ADDR 

OF INTERUPT SERVICE ROUTINE 
D,E = TIMEOUT IN MS 
EXIT: REGISTERS REMAIN UNCHANGED 

SERVICE ROUTINE IS EXECUTED 
INTERUPT ROUTINE SHOULD LOOK 
LIKE NORMAL SUBROUTINE 
********* ******* ************** ****** ******* 
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TIMER 



072E 


F3 




DI 






072F 


221F02 




SHLD 


GOTO 


;STOR£ JUMP ADDRESS 


0732 


DBFC 




IN 


INTMSK 


;FETCH INT MASK 


0734 


E6FD 




ANI 


OFDH 


; ENABLE TIMER INT 


0736 


D3FC 




OUT 


INTMSK 


; SET INTERUPT MASK 


0738 


3E12 




MVI 


A , 1 2H 




073A 


D3FD 




OUT 


OFDH 


; I NIT INT CONTROLLER 


073C 


3E02 




MVI 


A , 02H 


• 

f 


073E 


D3FF 




OUT 


OFFH 


; START TIMER 


07 40 


FB 




El 






0741 


C9 


• 

9 

• 

9 

• 

TSVC : 


RET 


TIMER 


INTERUPT SERVICE 


0742 


F3 




DI 




; DISABLE INTERUPTS 


0743 


F5 




PUSH 


PSW 


; SAVE A 


0744 


E5 




PUSH 


H 




0745 


3E02 




MVI 


A , 02H 




0747 


D3FF 




OUT 


OFFH 


; RESET TIMER 


0749 


2A1B02 




LHLD 


TIME 


; GET TIME 


074C 


23 




I NX 


H 


;UPDATE 


074D 


221B02 




SHLD 


TIME 


;RESTORE 


0750 


2A1D02 




LHLD 


TIMO 


; GET TIMOUT COUNT 


0753 


2B 




DCX 


H 


; COUNT DOWN 


0754 


221 D02 




SHLD 


TIMO 


;RESTORE IT 


0757 


7C 




MOV 


A ,H 


; GET MSB OF COUNT 


0758 


B5 




ORA 


L 


; OR WITH LSB OF COUNT 


0759 


CA6507 


TSVCO: 


JZ 


TSVC 1 


; T 0 INT ROUTINE IF 0 


075C 


El 




POP 


H 


; RESTORE 


075D 


F3 




DI 






075E 


3E20 




MVI 


A ,20H 


; RESTORE INT LEVEL 


0760 


D3FD 




OUT 


OFDH 




0762 


FI 




POP 


PSW 


; REST ORE 


0763 


FB 




El 




;ENABLE INTERUPTS 


0764 


C9 


TSVC 1 : 


RET 




; RETURN 


0765 


2A1F02 




LHLD 


GOTO 


; FETCH JUMP ADDRESS 


0768 


E9 




PCHL 




-.EXECUTE JUMP 












• 

* 


TIMOFF 


- TURNS 


OFF INTERUPT SERVICE 






• ******************************************** 






TIMOFF: 








0769 


F 5 




PUSH 


PSW 




0 7 6 A 


3E0 1 




MVI 


A , 0 1 H 




076C 


D3FF 




OUT 


OFFH 




076E 


FI 




POP 


PSW 




076F 


09 




RET 
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******************************************* 







; * 


RDFILE 


- READ AN ENTIRE FILE INTO 






; * 




MEMORY 








; * 


ENTRY: 


STARTING 


ADDR OF MEMORY BLOCK 






; * 




IN H,L 








; * 




A DDR OF 


FILENAME BLOCK IN D.E 






} ******************************************** 




RDFILE: 








0770 


222E02 




SHLD 


PAGER 


; STORE POINTER 


0773 


CD5106 




CALL 


SETFCB 




0776 


CD600S 




CALL 


OPEN 


; OPEN FILE 


0779 


AF 




XR A 


A 


;CLEAR ACCUM 


077A 


321A02 




STA 


E0FL3 


;CLEAR EOF FLAG 




R DF 1 0 : 








077D 


2A2BG2 




LHLD 


PAGER 


; FETCH POINTER 


0780 


c.E 




XCH3 




; PUT POINTER IN D,E 


0781 


CDC608 




CALL 


SETDMA 




0784 


CD7008 




CALL 


READ 


;READ A RECORD 


0787 


CDC907 




CALL 


HAFP3 


;MOVE PAGE INDEX 


078A 


3A1A02 




LDA 


EOFLG 


;FETCH EOF FLAG 


078D 


57 




ORA 


A 


;EOF FOUND? 


078E 


CA7D07 




JZ 


RDF 10 


; NO - RlAD NEW PAGE 


0791 


CD6808 




CALL 


CLOSE 


; CLOSE FILE 


0794 


C9 




RET 




; RETURN 






** ******** **** **** ***** **** * ** * *** ** **;* ** * * 








WRFILE 


- l^RITb A 


BLOCK OF MEMORY 








ENTRY: 


NUMBER OF RECORDS+1 TO WRITE 










STARTING 


ADDRESS IN H,L 






******************************************* 




\ 


vRFILE : 








0795 


222E02 




SHLD 


PAGER 


;SET UP PAGER 


0798 


CD5106 




CALL 


SETFCB 


; SET FCB 


0795 


1 18000 




LXI 


D , 80H 




079E 


CDCS08 




CALL 


SETDMA 




07A1 


CDEE08 




CALL 


SEARCH 


; SEARCH FOR EXISTING 


07A4 


3C 




I NR 


A 


; WAS THERE A MATCH? 


0 7A5 


C2AE07 




JNZ 


WRF05 


; YES - SKIP MAKE 


07A8 


CDAE08 




CALL 


MAKE 


; MAKE DIRECTORY ENTRY 




WRF05: 








07AB 


CD6008 




CALL 


OPEN 


; OPEN FILE 




WRF10: 








07 AE 


2A2502 




LHLD 


? A 3c.R 


; FETCH CURRENT POINTER 


07B 1 


EE 




XCH3 




; PUT POINTER IN D,E 


0752 


CDCS08 




CALL 


SETDMA 






WRF15: 








07E5 


CD8A08 




CALL 


WRITE 


; WRITE A RECORD 


0758 


CDC907 




CALL 


HAFPG 


; MOVE PAGE INDEX 


0755 


3A2D02 




LDA 


RODS 


; RECORDS TO WRITE 


07BE 


216E0C 




LXI 


h ,TFCB+1 5 



07C1 

07C2 

07C5 

07CS 



07C9 
07CA 
07CD 
07D0 
07D 1 
07D4 
07D5 
07D8 
07D9 



07DA 

07DD 

07E0 

07E3 



07E5 

07E8 

07EA 

07ED 

07EF 

07FO 
07F 1 
07F3 
07F5 
07F8 
07F9 
07FB 



DC 

C2B507 

CD680S 

C9 



CMP M 

JNZ WRF15 ; NO -WRITE NEW RECORD 

CALL CLOSE ;CLOSE THE FILE 

RET ; RETURN 

; ******************************************* 

; SUBROUTINE HAFP3E - ADJUSTS DMA ADDRESS 

; HALF PAGE OF MEMORY 

; ******************************************* 

HAFP3: 



E5 


PUSH 


H 


; SAVE 


2A2B02 


LHLD 


PAGER 




118000 


LXI 


D , 0 l 28 


• 

9 


19 


DAD 


D 


; ADD 128 TO PAGER 


222B02 


SHLD 


PAGER 


; RESTORE UPDATD PAGER 


EB 


XCHG 




{SWITCH H,L WITH D,E 


CDC608 


CALL 


SETDMA 


; SET DMA 


El 


POP 


H 




C 9 


RET 







******************************************* 
ERREX - FATAL ERRORS EXIT VIA THIS 
ENTRY: D,E CONTAIN MESSAGE ADDRESS 
EXIT: BOOT TO DOS 

j|c 5fe * ^ ^ 5jc 5fc ^ jfc 5< 3jC5(C 2fg ^ 2|C 3£ jfc j|c j|c j|c 3|C j|c 



ERREX: 



CD1 108 


CALL 


PRINT 


; PR I NT THE MESSAGE 


1 15C00 


LXI 


D ,TFCB 


; TEMPORARY FCE 


CDS808 


CALL 


CLOSE 


; CLOSE THE FILE 


C30000 


JMP 


BOOT 


; BOOT TO DOS 



* * * * * * * 5jC * * * * 3fC * * jfc jfc * * * * * * * * * * * * * * 

DRIVERS - I/O SUBROUTINES CONTAINING 
TTY, CRT, DISK, I/O PORTS 





• 

9 




TTY DRIVERS 




TTYIN: 








DBF5 




IN 


TSTAT 


{FETCH STATUS 


E602 




AN I 


RXRDY 


; IS RECEIVER READY 


CAES07 




JZ 


TTYIN 


; NO KEEP LOOKING 


DEF 4 




IN 


TDATA 


;FETCH DATA BYTE 


C9 


TTYOUT: 


RET 




; RETURN W/ BYTE IN A 


F5 




PUSH 


PSW 


;SAVE DATA BYTE 


DEF 5 




IN 


TSTAT 


; FETCH STATUS 


E60 1 




ANI 


TXRDY 


; TRANSMITTER RDY ? 


CAF007 




JZ 


TTYOUT 


; NO - WAIT UNTIL RDY 


FI 




POP 


PSW 


; BRING BACK DATA BYT; 


D3F 4 




OUT 


TDATA 


; OUTPUT TO TTY 


C9 




RET 




{RETURN 
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CRTIN 



07FC 


DBF7 




IN 


07FE 


E602 




ANI 


0800 


CAFC07 




JZ 


0803 


DBF 6 


CRTOUT: 


IN 


0805 


F5 


CRT 1 : 


PUSH 


0806 


DBF7 




IN 


0808 


E60 1 




ANI 


080 A 


CA0608 




JZ 


080D 


FI 




POP 


080E 


D3F6 




OUT 


0810 


C9 


PRINT: 


RET 


081 1 


0E09 




MVI 


0813 


C30500 


PNIB: 


JMP 


0816 


E60F 




ANI 


0818 


FEOA 




CPI 


08 1 A 


D22208 




JNC 


08 1 D 


C630 




ADI 


081 F 


C30508 


P 10: 


JMP 


0822 


C63 7 




ADI 


0824 


C30508 


PHEX: 


JMP 


0827 


F5 




PUSH 


0828 


OF 




RRC 


0829 


OF 




RRC 


082A 


OF 




RRC 


082B 


OF 




RRC 


082C 


CD1 608 




CALL 


082F 


FI 




POP 


0830 


CD 1 60S 




CALL 


0833 


C9 


PRHL : 


RET 


0834 


E5 




PUSH H 


0835 


1C 




MOV 


0836 


CD2708 




CALL 


083S 


E 1 




POP 


083A 


E5 




PUSH 


083E 


7D 




MOV 


0830 


CD2708 




CALL 


083F 


El 




POP 


0840 


C9 


CRLF: 


RET 


0841 


3E0D 




MVI 


0843 


CD0508 




CALL 


0846 


3E0A 




MVI 


0848 


C30508 




JMP 



CSTAT 


; FETCH CRT STATUS 


RXRDY 


{RECEIVER READY ? 


CRTIN 


; NO - WAIT UNTIL RDY 


CDATA 


{FETCH INPUT BYTE 


PSW 


{SAVE DATA BYTE 


CSTAT 


{FETCH CRT STATUS 


TXRDY 


{TXMITTER READY ? 


CRT 1 


;N0 - WAIT UNTIL RDY 


PSW 


{BRING BACK DATA 


CDATA 


{OUTPUT DATA 




{RETURN 


C,9 


{SET UP FOR BDOS CALL 


ENTRY 


{JUMP TO EDOS 


OFH 


{MASK LOW 4 BITS 


10 




P 10 




'O' 




CRTOUT 




’A’ - 


10 


CRTOUT 




PSW 





PNIB 

PSW 

PNIB 



A ,H 
PHEX 
H 
H 

A ,L 

PHEX 

H 



A,ODH {CARRIAGE RETURN 
CRTOUT 

A ,OAH {LINE FttD 
CRTOUT 
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0845 0E0D 
084D C30500 



INTIAL 



0850 


1 10000 


08 53 


OEOE 


0855 


C30500 


0858 


1 10100 


0855 


OEOE 


085D 


C30500 


0860 


1 15C00 


0863 


OEOF 


0865 


C30500 


0868 


1 15C00 


0865 


OE 10 


086D 


C30500 


0870 


1 15C00 


0873 


OE 14 


0875 


CD0500 


0878 


57 


087S 


C8 


087A 


3D 


0875 


C28408 


087E 


3E0F 


0880 


321A02 


0883 


C9 


0884 


1 10301 


0887 


C3DA07 


088A 


1 15C00 


088D 


OE 15 


088F 


CD0500 


0892 


57 


0893 


C8 


0894 


3D 


0895 


C29E08 


0898 


1 10F01 


089E 


C3DA07 


08 9 E 


3D 


089F 


C2AS08 


08A2 


1 1 1C01 


08A5 


C3DA07 


08A3 


112701 


08A3 


C3DA07 



MVI 

JMP 

LOGA: 

LXI 

MVI 

JMP 

L03B : 

LXI 

MVI 

JMP 

OPEN: 

LXI 

MVI 

JMP 

CLOSE: 

LXI 

MVI 

JMP 

READ: 

LXI 

MVI 

CALL 

ORA 

RZ 

DCR 

JNZ 

MVI 

STA 

RET 

RD010: 

LXI 

JMP 

WRITE: 

LXI 

MVI 

CALL 

ORA 

RZ 

DCR 

JNZ 

LXI 

JMP 

WR010: 

DCR 

JNZ 

LXI 

JMP 

WR02Q: 

LXI 

JMP 



C, 13 
ENTRY 

D , OOH 

C, 14 
ENTRY 

D , 0 1 H 
C , 14 
ENTRY 

D,05CH 

C , 1 5 
ENTRY 

D , 05CH 
C , 1 6 

ENTRY 

D,05CH 
C ,20 
ENTRY 
A 

A 

RD010 
A , OFH 
EOFLG 



D ,MS 3 1 
ERREX 

D,05CH 
C ,21 
ENTRY 
A 

A 

WR010 
D ,MS32 
ERREX 

A 

WR 020 

D,MS33 

ERREX 

D ,MS 34 
ERREX 



; RETURN IF NO ERRORS 
; IS IT AN EOF? 

; NO -UNWRITTEN DATA 
;SET EOF FLAG 



; ' READ ERROR * 



; RETURN IF NO ERRORS 



; ’WRITE ERROR’ 



; 'DISK FULL’ 



; 'DIRECTORY FULL ’ 
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MAKE 



08AE 


1 15COO 




LXI 


08tJ 1 


OE 1 6 




MVI 


08&3 


CD0500 




CALL 


08B6 


3C 




I NR 


08B7 


CO 




RNZ 


OSES 


112701 




LXI 


08BB 


C3DA07 


SEARCH: 


JMP 


08BE 


1 15C00 




LXI 


08C1 


OE 1 l 




MVI 


08C3 


C30500 


SETDMA : 


JMP 


08C6 


OE 1 A 




MVI 


0SC8 


C30500 




JMP 



D,05CH 
C ,22 
ENTRY 
A 

D,MSG4 ; ’DIRECTORY FULL ’ 
ERR EX 

D ,05CH 
C , 1 7 
ENTRY 

C ,26 
ENTRY 



I***************************************** ** 

SETVLV - ALLOWS USER TO SET UP PROPER 
SCANIVALVE POSITION BEFORE CONTINUING 



OSCE 


494E505554MESS: 


DB 


OSES 


CD4108 


SETVLV: 


CALL 


OSEB 


1 1 CEOS 




LXI 


08EE 


CD1 108 




CALL 


OSF 1 


CDFC07 




CALL 


08F4 


E60F 




ANI 


0SF6 


322702 




STA 


08F9 


CDFC07 




CALL 


08FC 


E60F 




ANI 


08FE 


322802 




STA 


0901 


CDFC07 




CALL 


0904 


C.60F 




ANI 


0906 


322902 




STA 


0909 


CDFC07 




CALL 


090C 


E60F 




ANI 


090E 


322A02 




STA 


0911 


CDFC07 




CALL 


0914 


E67F 




ANI 


0916 


Fc.OD 




CPI 


0918 


C2E808 




JNZ 


09 1 B 


AF 




XRA 


09 1 C 


322502 




STA 


091 F 


322602 




STA 


0922 


CD6706 




CALL 


0925 


7D 




MOV 


0926 


320820 




STA 


0929 


7C 




MOV 


092A 


320920 




STA 


092D 


C9 




RET 


092E 






END 1 



’INPUT FREQUENCY TYPE RETURN $’ 

CRLF 

D,MESS 

PRINT 

CRTIN 

OFH 

WORK+2 

CRTIN 

OFH 

WORK+3 

CRTIN 

OFH 

WORK+4 

CRTIN 

OFH 

WORK+5 

CRTIN 

7FH 

CR 

SETVLV 

A 

WORK 
WORK+1 
DECHX 
A ,L 

SCNRT + 2 
A ,H 

SCNRT+3 
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** 

EQUATES FOR CONVERT NODULE 

** 



GENERAL I/O ASSIGNMENTS 



OOF 4 


z 


TDATA 


EQU 


OF 4H 


; TTY DATA 


00F5 


z 


TSTAT 


EQU 


0F5H 


;TTY STATUS 


00F5 


z 


TCMD 


EQU 


OF 5H 


; TTY CONTROL 


OOFS 


z 


CDATA 


EQU 


OF 6H 


;CRT DATA 


00F7 


z 


CSTAT 


EQU 


0F7H 


{CRT STATUS 


00F7 


z 


CCMD 

• 


ECU 


0F7H 


{CRT CONTROL 






f 

• 




GENERAL 


EQUATES 


0005 


Z 


ENTRY 


EQU 


005H 


; BDOS ENTRY POINT 


0000 


z 


BOOT 


EQU 


OOH 


{BOOT POINT 


005C 


z 


TFCE 


EQU 


0 5CH 


{DEFAULT FCB 


0080 


z 


TBUFF 


EQU 


080H 


{DEFAULT BUFFER LOCATIQ 


0001 


z 


TXRDY 


EQU 


1 




0002 


z 


RXRDY 


EQU 


2 




OOOD 


z 


CR 


EQU 


ODH 




OOOA 


z 


LF 


EQU 


OAH 








BUFFER ALLOCATION & 
DATA ORGANIZATION 






0100 




• 

> 


OR 3 


0100 


C30004 




JMP 


0103 


524541 


4420MS 3 1 : 


DB 


010F 


5752495445MS32: 


DE 


01 1C 


444S534B 20MS33 : 


DB 


0127 


4449524543 MS 34: 


DB 


0137 


4441 544 120MSG1 1 : 


DE 


0147 


0044415 441 DATA : 


DE 


015B 


00 


ECFL3: 


DE 


015C 


0000 


TIME: 


DW 


015E 


0000 


TIMO: 


DW 


0160 


0000 


GOTO: 


DW 


0162 


0000 


POINT: 


DW 


0164 


0000 


SCNTR : 


DW 


0166 


OOOOOOOCOOWCRK : 


DE 


01 6C 


0000 


PAGER : 


DW 


016E 


00 


RODS : 


DB 


0 16F 


0000 


LASTM: 


DW 



100H ; VARIABLE AREA 

BEG I N 

’READ ERROR S’ 

’WRITE ERROR S’ 

’DISK FULL S’ 

'DIRECTORY FULL S’ 

’DATA TRUNCATED S’ 

0,’DATA ’ ,0,0, 0,0, 0,0, 0,0 

0 
0 
0 
0 

0 ; BUFFER POINTER 

0 ; SCAN COUNTER 

0,0, 0,0, 0,0 {WORKING A R w A 0 

0 {PAGE COUNTER 

0 {RECORDS TO BE WHITTENS 

00 {LAST WRITTEN LOCATION 
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2000 




DBUF : 


ORG 


2000H ;START 


OF DATA AREA 


0400 




BEGIN: 


ORG 


400H ; START 


OF PROGRAM AREA 


0400 


3 IFF IF 




LXI 


SP , 1FFFH 


; INITIALIZE STS 


0403 


CD0S04 




CALL 


TRANS 




0406 


C30000 




JMP 


BOOT 





* 5fC ^ * * jfc 3*C * * 3fC * * * * * * * :J< 5^ * * jfc * 3jc * 3*C * * 3^ * * * :fc * 3*C 3fc jfc * * * ^C 

; TRANS - READS IN DATA FILE FROM DISK B 

; CONVERTS BINARY DATA TO ASCII 0 

; REQUIRED BY BASIC ROUTINE 

; ENTRY: THIS PROGRAM IS CALLED X 

SUBMIT FILE 

; EXIT: CONTROL IS RETURNED TOS 

; FILE 

; SET UP FILE CONTROL BLOCK - READS IN SE 

; ETER ISSUED BY SUBMIT FILE 



TRANS: 



0409 


118200 


LXI 


D , 0S2H 


; ADDRESS OF PARAMETER L 


0 40C 


0604 


MVI 


B,4 


; CHARACTER COUNTER 


040E 


215C00 


LXI 


H ,05CH 


; ADDRESS OF TFCE 


041 1 


3600 


MVI 


M , 0 




0413 


23 


I NX 


H 








TRAN 1 : 






0414 


1A 


LDAX 


D 


; FETCH CHARACTER 


0415 


77 


MOV 


M , A 


; STORE IN FCB 


0416 


13 


I NX 


D 


; STEP POINTER 


0417 


23 


I NX 


H 


; STEP DESTINATION POINT 


0418 


05 


DCR 


E 


{FINISHED? 


04 1 S 


C21404 


JNZ 


TRAN 1 


; NO KEiiP TRANSFERRING 


04 1 C 


13 


I NX 


D 




04 1 D 


3l20 


MVI 


A , 20H 




04 1 F 


77 


MOV 


M , A 




0420 


23 


I NX 


H 




0421 


77 


MOV 


M, A 




0422 


23 


I NX 


H 




0423 


77 


MOV 


M , A 




0424 


23 


I NX 


H 




0425 


77 


MOV 


PI, A 




0426 


23 


I NX 


H 




0427 


1A 


LDAX 


D 




0428 


77 


MOV 


M , A 




0429 


23 


I NX 


H 




042A 


13 


I NX 


D 




042B 


1A 


LDAX 


D 




042C 


77 


MOV 


M , A 




042D 


23 


I NX 


H 





100 



042E 


13 


I NX 


D 




042F 


1 A 


LDAX 


D 




0450 


77 


MOV 


M , A 




0431 


0618 


MVI 


B ,24 




0453 


AF 


XRA 

TRAN2: 


A 


;CLEAR A 


0434 


23 


I NX 


H 




0435 


77 


MOV 


M , A 




0436 


05 


DCR 


B 




0437 


C23404 


JNZ 


TRAN2 





* * * * * * * * 3fc * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 

READ IN DATA FILE 

* * * * * * * 5fc * * * * * * * * * * * * * * * * * * * if * * * * * * 3jC * * * X * * * * * * * 



043 A 


CDC405 


CALL 


L03B 


; L 0 G I N DISK B 


043 D 


210020 


LXI 


H , DBUF 


; BUFFER AREA 


0440 


226C01 


SHLD 


PAGER 


;SET PAGER 


0443 


CDCC05 


CALL 


OPEN 


; OPEN FOR READ 


0446 


AF 


XRA 


A 


;CLEAR A 


0447 


325B01 


STA 


iiOFL 3 


; RESET END OF FILE FLAG 


044A 


1 10020 


LXI 


D , DBUF 




044D 


CD3A06 


CALL 


SETDMA 




0450 


CD6206 


CALL 


RDF 1 0 


;READ FILE INTO MEMORY 


0453 


2A6C01 


LHLD 


PAGER 




0456 


1 1 7EFF 


LXI 


D ,0FF7EH 




045S 


19 


DAD 


D 




045 A 


226F01 


SHLD 


LASTM 


; SAVE LAST MEMORY LOCAI 






SET UP TRANSITION BUFFER IN DEFAULT L06 



045D 


1 18000 


LXI 


D , 080H 


; ADDRESS OF TBUFF 




0460 


CD3A06 


CALL 


SETDMA 


; SET DMA ADDRESS 




0463 


215001 


LXI 


H ,DATA+9 


; ADDRESS OF 


tXI 


0466 


3641 


MVI 


M , * A ' 






0465 


23 


I NX 


H 






0469 


3653 


MVI 


M, *S ' 






046B 


23 


I NX 


H 






046C 


3643 


MVI 


M , * C ’ 






046E 


1 1 4701 


LXI 


D , DATA 






0471 


C D3F06 


CALL 


SETFCB 


; SET FILE CONTROL BLOCK 


0474 


CD1A06 


CALL 


DELET 






0477 


CD2206 


CALL 


MAKE 






047A 


CDCC05 


CALL 


OPEN 






0470 


218000 


LXI 


H , 080H 


;ADDRESS OF TBUFF 




0480 


226201 


SHLD 


POINT 


; SET BUFFER POINTER 


TOT 


0483 


210020 


LXI 


H ,DBUF 


; ADDRESS OF DEUF 




0486 


226C01 


SHLD 


PAGER 






0489 


CDBA04 


CALL 


3T0NE 






043C 


CDBA04 


CALL 


STONE 






048F 


CDEA04 


CALL 


GTONE 






0492 


CD5A04 


CALL 


STONE 







101 



o o 
.£> .£> 
<0 V) 
00 vji 


2A6F01 

EB 


CONVT : 


LHLD 

XCHG 


LASTM 


049S 


CDCE04 




CALL 


GTTWO 


049C 

049F 


2A6F01 

EB 




LHLD 

XCH3 


LASTM 


04A0 


2A6C01 




LHLD 


PAGER 


04A3 


7B 




MOV 


A,E 


04A4 


95 




SUB 


L 


04A5 


7A 




MOV 


A , D 


04A6 


9C 




SBB 


H 


04A7 


D29S04 




JNC 


CONVT 


04AA 


2A6201 




LHLD 


POINT 


04AD 


3E30 


CON 1 0 : 


MVI 


A, ’O’ 


04AF 


CDF504 




CALL 


STUFF 


04B 2 


2C 




INR 


L 


04E3 


C2AF04 




JNZ 


CON 1 0 


043 6 
04E 9 


CDD405 

C9 


CALL CLOSE 

RET 

; STONE - TAKES ONE BYTE FROM DATA BUFFER 



CONVERTS TO ASCII IN T5UF 
TBUF IS EMPTIED WHEN FULL 










STONE: 










045A 


2A6C01 




LHLD 


PAGER 






04c D 


7E 




MOV 


A ,M 






04BE 


23 




I NX 


H 






04BF 


226C01 




SHLD 


P A 3ER 






04C2 


6F 




MOV 


L,A 


;MOVE TO L 




04C3 


2600 




MVI 


H ,0 


;CL£AR H 




04C5 


CD0D05 




CALL 


BD5 


{CONVERT TO ASCII 




04C8 


3E2C 




MVI 


A ’ * 


{INSERT COMMA 




04CA 


CDF504 




CALL 


STUFF 






04CD 


C9 




RET 




{RETURN 








f y ^ ^ ^ ^ s|(> ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ 






• 

9 


STTWO 


- TAKES TWO BYTES OF BINARY 


DATAA 






• 

9 




CONVERTS 


THEM TO ASCII IN 


TBUF 






• 

9 




TBUF IS 


DUMPED WHEN FULL; 










^^*^****^*****^**^*********^**^*** 






3TTW0 : 










04CE 


2A6C01 




LHLD 


PAScR 






04D I 


5E 




MOV 


E,M 


{SET LSE 




04D2 


23 




I NX 


H 


{STEP POINTER 




04D3 


56 




MOV 


D,M 


{SET MSB 




04D4 


23 




I NX 


H 


{MOVE POINTER 




04D5 


226C01 




SHLD 


PAGER 


{STORE IN PAGER 




04D8 


CD 




XCHG 








04D9 


AF 




XRA 


A 


{CLEAR A 




04DA 


E4 




ORA 


H 


;IS IT NEGATIVE? 





102 



04DB 

04DE 

04DF 

04E0 

04E2 

04E3 

04E4 

04ES 

04E7 

04E9 

04EC 
04EF 
0 4 F 1 
04F4 



04F5 

04F6 

04F7 

04F8 

04FB 

04FC 

04FD 

0500 

0503 

0506 
0509 
050 A 
050B 
0500 



0500 

050E 

0511 

0514 



F2EC04 


JP 


GTT10 


NO - DO NOT INSERT 


2B 


DCX 


H 


DECREMENT 


7C 


MOV 


A ,H 


GET MSB 


EEFF 


XRI 


OFFH 


COMPLEMENT 


67 


MOV 


H , A 




7D 


MOV 


A ,L 


GET LSB 


t.EFF 


XRI 


OFFH 


COMPLEMENT 


6F 


MOV 


L , A 


RESTORE LSB 


3E2D 


MVI 


A,’"’ 


MINUS SIGN 


CDF504 


CALL 


STUFF 


INSERT 




GTT10: 






CD0D05 


CALL 


BD5 ; 


iCONVERT TO ASCII 


3E2C 


MVI 


A * * 




CDF504 


CALL 


STUFF 




C9 


RET 







; STUFF - TAKES CHARACTER PRESENT IN A 

; INSERTS INTO TBUFF AT LOCATION 

; POINTED TO BY POINT 

; WHEN POINT = 100H, BUFFER IS DU 

STUFF: 



E5 


PUSH 


H 


D5 


PUSH 


D 


C5 


PUSH 


B 


2A6201 


LHLD 


POINT 


77 


MOV 


M , A 


2C 


I NR 


L 


C20605 


JNZ 


STU10 


CDF605 


CALL 


WRITE 


218000 


LXI 

STU10: 


H , 80H 


226201 


SHLD 


POINT 


Cl 


POP 


B 


D 1 


POP 


D 


El 


POP 


H 


C9 


RET 





;STORE IN BUFFER 






* EINDEC - CONVERTS ONE OR TWO BYTES OF 

* BINARY DATA TO 5 OR 3 ASCII DE 

* CHARACTERS 

* ENTRY: STORAGE ADDRESS IN D,E 

* VALUE IN H,L 



BD5 : 



AF 


XRA 


A 


326601 


STA 


WORK 


01 F0D8 


LXI 


B,0D8F0H 


CD3005 


CALL 


BDA 



ED4: 



103 



0517 01 1 8FC 


LXI 


05 1 A CD3005 


CALL 




BD3 : 


05 1 D 019CFF 


LXI 


0520 CD3005 


CALL 




BD 2 : 


0523 01F6FF 


LXI 


0526 CD3005 


CALL 


BD 1 : 


0529 7D 


MOV 


052A F630 


OR I 


052C CDF504 


CALL 


052F C9 


RET 


EDA : 


0530 AF 


XRA 


BDB: 


0531 5D 


MOV 


0532 54 


MOV 


0533 3 C 


INR 


0534 09 


DAD 


0535 DA3105 


JC 


0538 3D 


DCR 


0539 6 B 


MOV 


053A 62 


MOV 


053B 47 


MOV 


053C FEOO 


CPI 


053E C24705 


JNZ 


0541 3A6601 


LDA 


0544 B7 


ORA 


0545 08 


RZ 


0546 78 


MOV 


BDC: 


0547 F630 


OR I 


0549 CDF504 


CALL 


054C 3EFF 


MVI 


054E 326601 


STA 


0551 09 


RET 




** 




DRIVERS 




** 


1 


fTYIN: 


0552 DBF 5 


IN 


0554 E602 


ANI 


0556 CA5205 


JZ 


0559 DBF 4 


IN 


055B 09 


RiT 



B,OFC 18H 
BDA 

B , OFF 9 CH 
BDA 

B,OFFF 6 H 

BDA 

A,L 
3 OH 
STUFF 



A ;CLEAR A 

t ,L 
D,H 
A 
B 

BDB 

A 

L ,£ 

H,D 

B , A ; S AVE IN B 

0 ; IS IT A ZERO? 

BDC ; NO - STUFF IT 

WORK ;FETCH FLAG 

A 5 IS IT SET? 

; NO - RETURN WITHOUT SID 

A ,B 

30H 
STUFF 
A ,OFFh’ 

WORK ; SET FLAG 



- I/O SUBROUTINES CONTAINING 
TTY, CRT, DISK, I/O PORTS 



TTY DRIVERS 



TSTAT ; FETCH STATUS 
RXRDY ; IS RECEIVER READY WITH 
TTYIN ; NO KEEP LOOKING 

TDATA ;FETCH DATA BYTE 

; RETURN WITH BYTE IN A 



TTYOUT 



055C 


F5 




PUSH 


PSW 


;SAVE DATA BYTE 


055D 


D5F5 




IN 


TSTAT 


; FETCH STATUS 


055F 


£601 




ANI 


TXRDY 


{TRANSMITTER READY FORB 


0561 


CA5C05 




JZ 


TTYOUT 


; NO - WAIT UNTIL READY 


0564 


FI 




POP 


PSW 


{BRING BACK DATA BYTE 


0565 


D3F4 




OUT 


TDATA 


{OUTPUT TO TTY 


0567 


C9 


CRTIN: 


RET 




{RETURN 


0568 


D&F7 




IN 


CSTAT 


{FETCH CRT STATUS 


056A 


£602 




ANI 


RXRDY 


{RECEIVER READY WITH BY 


056C 


CA6S05 




JZ 


CRTIN 


{NO - WAIT UNTIL READY 


056F 


DBF 6 


CRTOUT : 


IN 


CDATA 


{FETCH INPUT BYTE 


0571 


F5 


CRTl : 


PUSH 


PSW 


{SAVE DATA BYTE 


0572 


DEF7 




IN 


CSTAT 


{FETCH CRT STATUS 


0574 


£601 




ANI 


TXRDY 


{TXMITTER READY FOR BYE 


0576 


CA7205 




JZ 


CRTl 


;N0 - WAIT UNTIL READY 


0579 


FI 




POP 


PSW 


{BRING BACK DATA 


057A 


D3F6 




OUT 


CDATA 


{OUTPUT DATA 


057C 


C9 


PRINT: 


RET 




{RETURN 


057D 


0E09 




MVI 


C,9 


{SET UP FOR BDOS CALL 


057F 


C30500 


PNIB: 


JMP 


ENTRY 


{JUMP TO BDOS 


0582 


E60F 




ANI 


OFH 


{MASK LOW 4 BITS 


0584 


FEOA 




CPI 


10 




0586 


D28E05 




JNC 


P 10 




0589 


C630 




ADI 


’O’ 




058& 


C37105 


P 10: 


JMP 


CRTOUT 




058E 


C63 7 




ADI 


’A’ - 10 




0590 


C37105 


PHEX: 


JMP 


CRTOUT 




0593 


F5 




PUSH 


PSW 




0594 


OF 




RRC 






0595 


OF 




RRC 






0596 


OF 




RRC 






0597 


OF 




RRC 






0598 


CD8205 




CALL 


PNIB 




0595 


FI 




POP 


PSW 




059C 


CD8205 




CALL 


PNIB 




059 F 


C9 


PRHL : 


RET 






05 AO 


£5 




PUSH H 






05 A 1 


7C 




MOV 


A ,H 




05A2 


CD9305 




CALL 


PHEX 




05A5 


£1 




POP 


H 




05A6 


£5 




PUSH 


H 




05A7 


7D 




MOV 


A,L 




05A8 


CD9305 




CALL 


PHEX 





105 



05 AB El 
05AC C9 



CRLF 



05AD 
05AF 
05B 2 
05E4 

05B7 

05B9 

05BC 
05BF 
05C 1 

05C4 

05C7 

05C9 

05CC 

05CF 

05D1 

0504 

0507 

0509 

05DC 

05DF 

05E1 

05E4 

05E5 

05E6 

05E7 

05e.A 

05EC 

05EF 

05F0 

05F3 

05F6 
05F9 
05FB 
0 5FE 
05FF 
0600 
0601 
0604 
0607 



POP 

RET 



H 



3E0D 

CD7105 

3E0A 

C37105 

OEOD 

C30500 

1 10000 

OEOE 

C30500 

110100 

OlOE 

C30500 

1 15C00 

OEOF 

C30500 

1 1 5C00 
OE 10 
C30500 

1 15C00 

OEM 

CD0500 

B7 

CS 

3D 

C2F005 

3E0F 

325B01 

C9 

110301 

C3EF06 

1 15C00 
OE 1 5 
C00500 
B7 
08 
3D 

C20A06 
1 10F01 
C3EFC6 



IMTIAL: 
LO 3A i 

LOSE: 

OPEN: 

CLOSE: 

READ: 



RD010: 
L'R I TE : 



UR 010: 



MVI 

CALL 

MVI 

JMP 

MVI 

JMP 

LXI 

MVI 

JMP 

LXI 

MVI 

JMP 

LXI 

MVI 

JMP 

LXI 

MVI 

JMP 



LXI 

MVI 

CALL 

ORA 

RZ 

OCR 

JNZ 

MVI 

STA 

RET 



LXI 

JMP 



LXI 

MVI 

CALL 

ORA 

RZ 

DCR 

JNZ 

LXI 

JMP 



A ,ODH ;CARRIAGE RETURN 
CRTOUT 

A , OAH ;LINE FEED 
CRTOUT 

C , 13 
ENTRY 

D, OOH 
C , 1 4 
ENTRY 

D ,0 1H 

C, 14 
ENTRY 

D , 05CH 
C , 1 5 
ENTRY 

D,05CH 

C, 16 
ENTRY 

D , 05CH 
C ,20 
ENTRY 
A 

; RETURN IF NO READ ERRB 
A ; IS IT AN EOF? 

RD010 ; NO MUST BE UNWRITTEN 9 

A,OFH ;St.T nOF FLAG 

EOFLG ; 



D ,MS 3 1 ; ’READ ERROR* 

ERR EX 

D ,05CH 
C ,2 1 
ENTRY 
A 

; RETURN IF NO WRITE ERB 
A 

WR010 

D ,MS 32 ; ’WRITE ERROR * 

ERREX 
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060A 


3D 






DCR 


A 




060B 


C21 406 






JNZ 


WR020 




060E 


1 1 1C01 






LXI 


D , MS 33 


; ’DISK FULL’ 


061 1 


C3BF06 




WR020 : 


JMP 


ERREX 




0614 


1 12701 






LXI 


D ,MS 34 


; ’DIRECTORY FULL’ 


0617 


C3BF06 




DELET: 


JMP 


ERREX 




06 1 A 


0E 1 3 






tnvi 


C , 19 




06 1 C 


1 15C00 






LXI 


D ,05CH 




06 1 F 


C30500 






JMP 


ENTRY 








MAKE : 








0622 


1 15C00 






LXI 


D , 05CH 




0625 


0E 16 






MVI 


C ,22 




0627 


CD0500 






CALL 


ENTRY 




062A 


3C 






I NR 


A 




062c 


CO 






RNZ 






062C 


112701 






LXI 


D ,MS 34 


; ’DIRECTORY FULL’ 


062F 


C3BF06 




SEARCH : 


JMP 


ERREX 




0632 


1 15C00 






LXI 


D ,05CH 




0635 


0E 1 1 






MVI 


C , 17 




0637 


C30500 






JMP 


ENTRY 








SETDMA : 








063A 


0E 1 A 






MVI 


C ,26 




063C 


C30500 






JMP 


ENTRY 










* * 34c * * * * * * * * * * * 5fc *C Jfc * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 










SETFCB 


- MOVES AN INITIALIZATION BLOCKI 












TFCB AREA 

ENTRY: D,Z = FILNAME BLOCK 














C 


3ETFCB : 








063F 


E5 






PUSH 


H 


; S AVE 


0640 


215C00 






LXI 


H , 05CH : 


; DEFAULT FILE CONTROL L 


0643 


C5 






PUSH 


B : 


; S AVE 


0644 


0613 






MVI 


E, IS 


; SET COUNTER 






SETF1 : 






0646 


1A 






LDAX 


D 


FETCH BYTE TO BE TRANE 


0647 


77 






MOV 


M , A 


STORc IN TFCb AREA 


0648 


23 






I NX 


H 


INCREMENT H 


0649 


13 






I NX 


D 


INCREMENT D 


064A 


05 






DCR 


B 


FINISHED? 


06 4E 


C24606 






JNZ 


SETF1 


NO - 30 FOR ANOTHER £ 


064E 


Ar 






XRA 


A 


CLEAR ACCUM 


064F 


327C00 






STA 


TFCB+52 




0652 


C 1 






POP 


B 




0653 


E l 






POP 


H 




0654 


C9 






RET 







; * RDFILZ - READ AN ENTIRE FILE INTO CONTE 
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* MEMORY 

* ENTRY: STARTING ADDRESS OF MEMB 

* IN H,L 

* ADDRESS OF FILENAME BLO 

* * * jje * * * * * * * * * * * >K * * * * * * * ^ * * * ¥ * * * * * * * * * * * * * * 



RDFILE : 



0655 


226C01 


SHLD 


PAGER 


STORE CURRENT POINTER 


0658 


CD3F06 


CALL 


SETFCB 




065B 


CDCC05 


CALL 


OPEN 


OPEN FILE 


065E 


AF 


XRA 


A 


CLEAR ACCUM 


065F 


325B01 


STA 

RDF 1 0 : 


EOFLG 


CLEAR EOF FLAG 


0662 


2A6C01 


LHLD 


PAGER 


FETCH CURRENT POINTER 


0665 


EE 


XCHG 




PUT POINTER IN D,E 


0666 


CD3A06 


CALL 


SETDMA 




0669 


CDDC05 


CALL 


READ 


READ A RECORD 


066C 


CDAE06 


CALL 


HAFP3 


MOVE PAGE INDEX 


066F 


3A5E01 


LDA 


EOFLG 


FETCH EOF FLAG 


0672 


B7 


ORA 


A 


EOF FOUND? 


0673 


CA6206 


JZ 


RDF 1 0 


NO - READ ANOTHER PAG. 


0676 


CDD40 5 


CALL 


CLOSE 


CLOSE FILE 


0679 


C9 


RET 




RETURN 



WRFILE - WRITE A BLOCK OF MEMORY IN A I 
ENTRY: NUMBER OF RECORDS+1 TOW 

STARTING ADDRESS IN H,L 

* Jfc Jfc * * 5|C jfc * * 2*C * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 



WRFILE: 



067 A 


226C01 




SHLD 


PAGER 


; SET UP PAGER 


067D 


CD3F06 




CALL 


SETFCB 


; SET FCb 


0680 


1 18000 




LX I 


D , 80H 




0683 


CD3A06 




CALL 


SETDMA 




0686 


CD3206 




CALL 


SEARCH 


; SEARCH FOR EXISTING Fi 


0689 


3C 




I NR 


A 


; WAS THERE A MATCH? 


068A 


C29006 




JNZ 


WRF05 


; YES - SKIP MAKE FUNCT0 


068 D 


CD2206 


WRF05: 


CALL 


MAKE 


; MAKE DIRECTORY ENTRY 


0690 


CDCC05 


WRF10: 


CALL 


OPEN 


; OPEN FILE 


0693 


2A6C01 




LHLD 


PAGER 


; FETCH CURRENT POINTER 


0696 


Ed 




XCHG 




; PUT POINTER IN D,E 


0697 


CD3A06 


WRF1 5: 


CALL 


SETDMA 




069A 


CDF605 




CALL 


WRITE 


; WRITE A RECORD 


069D 


CDAE06 




CALL 


HAFPG 


;MOVE PAGE INDEX 


06A0 


3A6E01 




LDA 


RCDS 


•.FETCH NUMBER OF RECORD 


06 A3 


216E00 




LXI 


H ,TFCE+ 1 5 


06A6 


BE 




CMP 


M 




06A7 


C29A06 




JNZ 


WRF15 


; NO - WRITE ANOTHER REO 
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06 AA CDD405 CALL CLOSE ;CLOSE THE FILE 

06AD C9 RET ; RETURN 

; SUBROUTINE HAFP3E - ADJUSTS DMA ADDRESS 

; HALF PAGE OF MEMORY 



HAFPG : 



06 AE 


E5 


PUSH 


06AF 


2A6C01 


LHLD 


06B2 


1 18000 


LXI 


06B5 


19 


DAD 


06B6 


226C01 


SHLD 


0659 


EB 


XCHG 


06BA 


CD3A06 


CALL 


06BD 


El 


POP 


06BE 


C9 


RET 






ERREX 

** 



ERREX: 



06BF 


CD7D05 




CALL 


06C2 


1 15C00 




LXI 


06C5 


CDD405 




CALL 


06C8 


C30000 




JMP 


06CB 




END 


100H 



H 

PAGER 


; SAVE 




D ,01 28 


• 

9 




D 


; ADD 128 


TO PAGER 


PAGER 


; RESTORE 


UPDATED PAGER 




;SWITCH H 


,L WITH D,E 


SETDMA 


; SET DMA 





H 



- FATAL ERRORS EXIT VIA THIS ROUI 
ENTRY: D,E CONTAIN MESSAGE ADDE 
EXIT: BOOT TO DOS 



PRINT jPRINT THE MESSAGE 

D ,TFCB ; TEMPORARY FCB 

CLOSE ; CLOSE THE FILE 

BOOT ; BOOT TO DOS 



A> 
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RwM********************************************************* 

REM REDUCE - EXTRACTS FOURIER COEFFICIENTS 

REM OF ODD HARMONICS FROM GIVEN DATA FILE 

REM********************************************************* 

DELTA. T = S5E-6 

PI = 3.141592654 

CO NTR $="B : CONTROL" 

DATUM. PTSS="S: DATA. ASC" 

OUTPUT$="B : OUTPUT" 

TABS = ” " 

FILE DATUM. PTSS 
IF END # l THEN 200 

READ # 1; ICHNL,FCHNL,SV0,SV1 , SCANS , SCAN. PERIOD, RECORD. FREQ 

SCAN. PERIOD = SCAN .PERIOD * .97S5625E-3 

PRINT "INITIAL ANALOG CHANNEL" ,ICHNL 

PRINT "FINAL ANALOG CHANNEL" ,FCHNL 

PRINT 

PRINT "SCANI VALVE ZERO SETTI NG" ,SVO 
PRINT "SCANIVALVE ONE SETTING ",SV1 
PRINT 

PRINT "NUMEER OF SCANS ", SCANS 

PRINT "SCAN PERIOD" , SCAN .PERIOD; ” SECONDS" 

PRINT "SCAN RATE", 1/SCAN. PERIOD;" HZ" 

R EC OR D . FR EG = R EC OR D . FR EQ / 1 0 

PRINT "RECORDED REFERENCE FREQUENCY ", RECORD . FREQ 
REM READ IN ASCII DATA FILE 

RlM* ********************************************** ******* 

DIM DAT (FCHNL+ 1 , SCANS) , PHASE (FCHNL+ 1 ) ,A(FCHNL+l ) ,B(FCHNL+1 ) 

READ £ 1 ; DUMMY , DUMMY , DUMMY 

PRINT 

FOR 1= 1 TO SCANS 
READ # l ; TIME 
FOR J= ICHNL TO FCh'NL 
READ # 1 ; DAT ( J ,1 ) 

NEXT J 
NEXT I 

RiM* **************************************** ************* 

REM COMPUTE LAST DATA SAMPLE NUMBER TO BE USED 

Rc.M* ********************************************* ******** 

OMEGA = 2*PI *RECOR D . FREQ 

DRIVE. PERIOD r l /RECORD . FREQ 

N = I NT ( (DRIVE .PERIOD/SCAN .PERIOD) \ 

*1 NT <(SCANS*SCAN. PERIOD) /DRIVE. PERIOD) ) 

PRINT "NUMBER OF DATA POINTS USED " ; N /’AVAILABLE "; SCANS 
Rz. M**** 5 ^******^******^****************^*^*^************** 

REM COMPUTE FOURIER COEFFICIENTS 

HIHARMONI C = I NT ( DRI VE .PERI OD/SCAN .PER I OD/2) 

IF HIHARMONIC > 5 THEM HIHARMONIC = 5 

PRINT "HIGHEST HARMONIC EXTRACTED " ;HIHARMONI C 
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FOR INDEX : 0 TO HIHARMONIC 

FOR JrICHNL TO FCHNL 

A(J)rO 

B(J)rO 

NEXT J 

FOR I = 1 TO N 
FOR JrICHNL TO FCHNL 

X 1 = I ND£X*OMEGA*C C I - 1 ) *SCAN ,PERIOD+DELTA.T*J) 
B(J)=B(J)+DAT(J,I )*SIN(X1) 
A(J)rACJ)+DAT(J,I)*COS(Xl) 

NEXT J 
NEXT I 

REM OUTPUT 

PRINT "FOURIER COEFFICIENTS FOR HARMONIC ";INDEX 
PRI NT”CHANNEL" , "COS" , "SIN” , "PHASE ” , "MAG" 

FOR JrICHNL TO FCHNL 
PHASE (J)=ATN(B(J)/A(J)) 

IF AC J ) <0 AND B( J ) >0 THEN PHASE CJ ) =PHASE (J ) +PI 
IF A ( J ) <0 AND B ( J ) <0 THEN PHASE (J )= (PHASE CJ ) -PI ) 

IF INDEX = 0 THEN ACJ) = A(J)/2 

MA3= SGRC CAES CAC J) )) t2+ ( AES (B ( J ) ) ) T2)/2. 048/1 

IF INDEX r 1 AND J = 0 THEN FASE = PHASECO) 

PHASE (J):PHASECJ)-FASE 

IF PHASE (J ) <-PI THEN PHASE CJ) =PHASE (J )+2*PI 

IF PHASEC J ) >PI THEN PHASE (J ) -PHASE CJ ) -2*P I 

PRINT J , AC J) /2 .048/1 ,B CJ) /2 .0 48/1 , 1 80*PHASE ( J ) /? I , MAG 

NEXT J 

PRINT 

NEXT INDEX 
200 STOP 
END 
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MON 2 : PROCEDURE! F ,A ) BYTE; 

CECLARE F BYTE, A ADDRESS 
GO TO BDOS; 

END HON?; 
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0(3; CALL ZERO; CALL T T YOUT ( A T T EN ) ; 
IF DCOPY = 1 OR OCOPY = 3 THEN 
OCOPY = OCOPY +■ 1 ; 
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APPENDIX D 



SAMPLE OUTPUT 



INITIAL ANALOG CHANNEL 0 

FINAL ANALOG CHANNEL 4 

COORDINATION NUMBER 1 

NUMBER OF SCANS 400 



SCAN PERIOD 2.92968CE-03 SECONDS 
SCAN RATE 341.3353 HE 

RECCRDED REFERENCE FREQUENCY 10.1 

NO PEER OF DATA POINTS USED 571 AVAILABLE 400 



FOURIER 


COEFFICIENTS FOR 


HARMONIC 0 








CHANNEL 


CCS 


SIN 


PHASE 




mag 


0 


2.49591 


0 


0 




2.493908 


1 


2.434044 


0 


n 

u 




2 . 43 40 45 


2 


2.32S857 


0 


0 




2.329o3S 


3 


2.21 1 704 


0 


0 




2.21 1705 


4 


2.3 1671 1 


0 


0 




2.3 1 S71 3 


FOURIER 


COEFFICIENTS FOR 


HARMONIC 1 








CHANNEL 


COS 


SIN 


PHASE 




f i o G 


0 


-654.6378 


-816.6686 


0 




1046.66 


1 


-6 53.8682 


-817.2451 


5.260612E 


-02 


1046.629 


2 


-653.5261 


-817.6686 


8. 1 71659E 


-02 


1046.746 


3 


-652.9547 


-818.0521 


. 1 1 92551 




1046.608 


4 


-652.5599 


-818.2418 


. 1 42628 




1046.59 


FOURIER 


COEFFICIENTS FCR 


HARMONIC 2 








CHANNEL 


COS 


SIN 


PHASE 




MAG 


0 


1.40011S 


-5.062779 


63.2825 




3 .36763 1 


1 


1 .38256 


-5 .054472 


63 .2 1055 




5 . 33 459 


2 


1.54165 


-2.995208 


65.95031 




3 . 5 60 662 


5 


1 .567927 


-2.955155 


66.8261 




3 .527692 


4 


1 .51 1007 


-2.995277 


65.40475 
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APPENDIX E 



OPERATING INSTRUCTIONS 



A. ACQUISITION PROCEDURE INSTRUCTIONS 



1. Interconnect the following with the NDS-800 using the 
appropriate cables: 

* Disk Drive 

* CRT 

* BNC Patch Panel 

* Teletype (optional) 

2. Attach analog sources to the desired patch panel 3NC 
fitting using coaxial cables. Up to 16 channels may be 
attached. Ensure voltage limits on analog inputs do not 
exceed plus or minus 5 volts. 



With disk drive doors open, power up all equipment. 



4 . 



Insrall the program diskette in Drive A and a blank or 
uprotected diskette in Drive 3, then close the doers. 



5. Depress the 300T switch and momentarily depress the 
RESET switch. 



6. Depress the space bar on the CRT keyboard. 

7. Reposition the 300T switch - The CRT will display the 
following message: 32X CP/N VERS 1.3 

8. Enter ACQUIRE and a carriage return. The program will 
respond by displaying the current CONTROL file and ask: 
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"ANY CHANGES?". 



9. Respond with a Y for yes or a N for no. 

10. If yes, you must then edit- the CONTROL file by 
entering : 

* ED CONTROL cr 

* # A cr 

Use the editing commands specified in ref. 9. 

11. If nc, the program will ask for a 4 digit frequency to 
be entered. The decimal point is understood to be 
between the first and second significant digits, 

ex: 0105 is equivalent to 10.5 Hz. 

12. When ready to record data, enter a carriage return. 

13. Repeat steps 11 and 12 until the CONTROL file 
terminates and asks "GOOD RUN?". 

14. Enter Y if you wish to protect the disk from being 
written to. 

15. Entering a N will not protect the diskette nor will it 
destroy data on the disk. 

5. DATA ANALYSIS PROCEDURE INSTRUCTIONS 

1. With the DATA diskette in Drive B and the program 
diskette in Drive A, type in CONVSPT DATA.xxx; where 
xxx is the decimal ID of the data file, 

CONVERT DATA. 001 

2. When prompted with an A>, enter RUN REDUCE. Output will 
appear on the selected console device. 
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APP3NDIX F 



SAMPLE CONTROL FIL$ 



DATE : 6/ 1 5/77 

RUN*: SIN REDUCTION TEST 
SCANS PER CHANNEL: 400 
SCAN PERIOD: 2 
FIRST CHANNEL: 0 
LAST CHANNEL: 2 
SCANIVALVE 0: 1 
SCANIVALVE 0: 6 
SCANIVALVE 1: 1 
SCANIVALVE 1: 6 

CHANNEL 1 = INPUT FROM WAVETEK 

CHANNEL 2 AND 3 = OUTPUT FROM OP AMP FILTE 



DATA. 000 


Z 


10HZ 


SIN 


WAVE 


ZERO 


OFFSET 


.001 


z 


25HZ 


SIN 


WITH 


ZERO 


OFFSET 


.002 


z 


35HZ 


SIN 


WITH 


ZERO 


OFFSET 


.003 


z 


50HZ 


SIN 


WITH 


ZERO 


OFFSET 


.004 


z 


65HZ 


SIN 


WITH 


ZtRO 


OFFSET 


.005 


z 


75HZ 


SIN 


WITH 


ZERO 


OFFSET 
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